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sehen s i ch deshalb gezwungen , darauf h i nzuwe i sen , daß sie 
weder eine Garantie noch die juristische Verantwortung oder 
irgendeine Haftung für Folgen, die auf fehlerhafte Angaben 
zurückgehen, übernehmen können . Für die Mitteilung 
eventueller Fehler sind Autor und Verlag jederzeit dankbar. 


Vorwort 


Als Fortsetzung zum Flasch i nensprachebuch enthält dieses 
Buch speziell für das Colour-Genie alle wichtigen 
Hasch i nenrout i nen zur Programm i erung der Grafik, der 
Tonausgabe und der Diskettenstation. Dadurch wird es dem 
Hasch i nenprogramm i erer zum ersten Hai möglich alle 
Eigenschaften des Colour-Genies in eigenen Programmen voll 
auszunutzen . 


Alle Routinen werden mit j eue i 1 s ei nem Bei spiel erläutert. 
In jedem Abschnitt folgen größere Bei sp i e 1 Programme 
C insgesamt 10), die im Zusammenhang die sinnvolle Anwendung 
der beschriebenen ROH-Rout i nen zeigen. I 


Außerdem enthä 1 t di eses Buch die Quell Programme von 
zahlreichen Utilities, die als RELOSOFT seit Jahren 
verkauft werden . An di esen Programmen werden die 
HÖg 1 i chke i ten des Eingriffes in Betriebssystem und 
Bas i c i nterpreter genau er 1 äuter t . ; 


Aachen, im Februar 1985 
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Teil 1: ROM-Routinen und ihre Anuendung 


*********************************************************** 

* * 


* NAME : Beschreibung 

* 


* 

* 

* 

* 

* 


E : Einsprung 
R : Registerbeeinflussung 

1 : Auf ruf parameter 

0 : Ergebn i sparameter 

************************************************** 


** 


Alle f o 1 genden Beschre i bungen der ROH -Rout i nen fangen mit 
einem derartigen Block an: 


NAME : Der Harne der Routi ne , der aus max . 6 Buchstaben und 
Ziffern besteht. Dahinter kurz zusammengefasst eine 
Beschreibung der Funktion. 


E : Die Einsprungadresse CADRESS) 
Die Routine kann entweder mit 

NAHE EQU ADRESS 

CALL HAUE 

oder 

CALL ADRESS 

auf gerufen werden . 


R : Registerbeeinflussung. 

Hier sind alle Register verzeichnet, die durch die Routine 
verändert uerden können . H i mmt ein spez i el 1 es Register 
immer einen speziellen Uert an, uenn die Routine 
durch laufen wird , i st d i eser angegeben . 


I : Auf ruf parameter 

Hier ist aufgelistet, in uelchen Registern bzw. 
Spei cherze 1 1 en , uel che Parameter für die Routi ne übergeben 
uerden müssen . 


0 : Ergebnisparameter 

In den angegebenen Registern und Speicherzellen uerden die 
Ergebnisse der Routine dem Aufrufer zurückgegeben. 
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Kapitel 1 : Die Bildschirmausgabe 1 

= = = = = = = = = = ^ = s ’i 


1.1.1 Die Textmodus 


Im Textmodus können auf dem Colour-Genie 1000 Seichen in 25 
Zeilen zu je 40 Zeichen dargestellt werden. Die Zeichen 
können souoh 1 dem f estprogramm i erten Sei chengener ator 
entnommen werden „ als auch z. T. frei programm i ert werden . 

Der B i 1 dwi ederho 1 spe i eher des Co 1 our-Gen i es im Textmodus 
belegt den Spe i cherbere ich von 4400H-47E7H. Die erste Zeile 
belegt den Bereich von 4400H-4427H, die zwe i te den Bere i ch 
von 4428H-444FH, usw. In einer Zeile ist das ganz links 
dargestellte Seichen der niedrigsten Adresse zuzuordnen. 

In jede Speicherzelle kann ein Wert zwischen 0 und 255 <0 - 
FFH) geschrieben werden. Durch die U i deoscha 1 tung wird auf 
der zugehörigen Bildposition das entsprechende Zeichen 
dar geste 11t. Den Werten 0 - 127 entsprechen i mmer ganz 
bestimmte Zeichen. Den Werten von 128 - 255 können entweder 
f estprogramm i erte Grafikzeichen als auch freiprogrammierte 
Se i chen zugeordnet werden . Diese Zuordnung wird durch den 
CHAR— Befehl festgelegt: 


Code 


CHAR 0 CHAR 1 CHAR 2 CHAR 3 


0-127 (00H-7FH) f estprogrammi erte ASCI I -Zeichen 

128-192 C 80H-BFH ) frei PR1 frei PR1 fest GR 1 fest GR 1 

193-255 C C0H-FFH ) frei PR2 fest GR2 frei PR2 fest GR2 

I 

Die f re i programm i erbaren Zeichen der Gruppe 1 liegen im 
Ber e i ch von F400H-F5FFH , die Gruppe 2 im Bere ich von 
F600H-F7FFH. Jedes f re i programm i erbare Zeichen belegt 8 
Bytes i m Speicher zur Definition des Zeichens . Jedes Byte 


vereinigt die Bild 
die oberste B i 1 dze i 


F400H 


Code 

80H 

1 . 

F401H 


Code 

80 H 

2 . 

F402H 


Code 

80 H 

3. 

F403H 


Code 

80H 

4. 

F404H 


Code 

80H 

5. 

F405H 


Code 

80H 

6 . 

F406H 


Code 

80H 

7 . 

F407H 


Code 

80H 

8. 

F408H 


Code 

8 1 H 

1 . 

F409H 


Code 

8 1 H 

2. 

F40AH 


Code 

8 1 H 

3. 

F40BH 


Code 

8 1 H 

4. 

F40CH 


Code 

8 1 H 

5. 

F40DH 


Code 

8 1 H 

6 . 

F40EH 


Code 

8 1 H 

7. 

F40FH 


Code 

8 1 H 

8. 

« ♦ * 

F600H 

; 

Code 

C0H 

1 . 


unkte von einer Zei 
e abgespei chert . 

Zeile 
Zei 1 e 
Ze i le 
Ze i 1 e 
Ze i 1 e 
Ze i 1 e 
Zei 1 e 
Zei le 
Ze i 1 e 
Ze i 1 e 
Ze i 1 e 
Ze i 1 e 
Ze i 1 e 
Ze i 1 e 
Ze i 1 e 
Zeile 

Ze i 1 e 


e . Als erstes wird 
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F7FFH : Code FFH 8. Zeile j 

! 

I 

Be i sp i e 1 : 

F400H : 81 42 24 18 18 24 42 81H 
Jetzt ergibt ? CHR$C128) ein großes X. 


Die Farben 
Farbspe i eher 
Zeichen auf 
diesen 1024 
verdrahtet , 


der einzelnen Zeichen sind durch den 
definiert, der bei F000H beginnt. Für jedes 
dem Bildschirm ist ein Byte reserviert. Von 
Bytes sind allerdi ngs nur die unteren 4 Bi ts 
da nur 16 Farben möglich sind. In den 


Farbspeicher müssen folgende Uerte eingeschrieben werden um 


eine bestimmte Farbe zu erzielen: 


i 


Farbe 


Farbcode Argument 

im Farbspeicher für COLOUR 


Grau 

00H 

= 

0 

10 

Cyan 

0 1 H 


1 

7 

Rot 

02H 

= 

2 

3 

Ue i ß 

03H 

— 

3 

l 

Gelb 

04H 

= 

4 

4 

Grün 

05H 

= 

5 

2 

Orange 

06H 

= 

6 

5 

He 1 lgelb 

07H 


7 

11 

Bl au 

08H 


8 

6 

Hellblau 

09H 

= 

9 

9 

Rotviolett 

0AH 


10 

15 

Bl auv i olett 

0BH 

— 

1 1 

12 

Hel lgrau 

0CH 

= 

12 

13 

Türkis 

0DH 

= 

13 

14 

flagenta 

0EH 

— 

14 

8 

He 1 1 we i ß 

0FH 


15 

16 


Die Argumente der COLOUR- Anue i sung geben n i cht d i rekt den 
Farbcode für den Farbspeicher an, sondern werden über eine 
Tabel le zunächst umcod i ert . Diese Tabe Ile beg i nnt auf der 
Adresse 4390 H und ist folgendermaßen auf gebaut : | 


4390H 


03H 


COLOUR 

1 

= 

Ueiß 

4391 H 


05H 


COLOUR 

2 


Grün 

4392H 


02H 


COLOUR 

3 


Rot 

4393H 


04H 


COLOUR 

4 


Gelb 

4394H 


06H 


COLOUR 

5 

= 

Orange 

4395H 


08H 


COLOUR 

6 

= 

B 1 au 

4396H 


0 1 H 


COLOUR 

7 

— 

Cyan 

4397H 


0EH 


COLOUR 

8 


Magenta 

4398H 


09H 


COLOUR 

9 

= 

Hellblau 

4399H 


10H 


COLOUR 

10 


Grau 

439AH 


07H 


COLOUR 

1 1 

= 

He 1 1 gelb 

439BH 


0BH 


COLOUR 

12 

= 

B 1 auv io 1 ett 

439CH 


0CH 


COLOUR 

13 

= 

He 1 1 grau 

439DH 


0DH 


COLOUR 

14 

= 

Türkis 

439EH 


0AH 


COLOUR 

15 

= 

Rotv i ol ett 

439FH 


0FH 


COLOUR 

16 

= 

He 1 1 wei ß 
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Folgendes Programmbeispiel zeigt eine sinnvolle Anwendung 
der f reiprogrammierbaren Zeichen. Es ermöglicht die Eingabe 
der Umlaute und des scharfen s mittels <CTRL> und A, 0, U, 
a, o, u, S und s. Die CTRL-Taste muß losgelassen werden, 
bevor die Buchstabentaste wird. Bei vielen Co 1 our-Gen i es 
sind im Ze i chengenerator auf den Codes 1-3 und 5-8 die 
deutschen Sonderzeichen enthalten. Das Programm SEDIT 
spricht unter diesen Codes die Umlaute an Cs. 2.1> 


i 

t 


160 

* ********************************************* 

i 

y 

\ 

110 

; * 

* 


120 

;* BEISPIEL 

* ' 

i 

i 

* 

130 

; * 

* 

\ 

140 

;* UMLAUTEEI HG ABE/ AUSGABE * * 

i 

( 

L 

|- 

150 

; * 

* 

160 

;* CC> 1985 LUIDGER RÖCKRATH * 

\ 

l 

i 

i 

170 

; * 

* 

180 

; ********************************************* 

190 

> 


i 

200 

; BASIC-ZEI GER : 



210 

220 

KEYVEC EQU 4016H ; KEYBOARD-TRE I BER-VEKTOR 


230 

240 

ORG 0BF00H ; 

STARTEN MIT /TM NICHT ] 

MOEGL. 

250 

) 



260 

; INITIALISIERUNG: 


270 

280 

t 

INIT LD HL, C KEYVEC ) ; 

ALTEN KEYBOARDVEKTOR UMSP. 

290 

300 

LD C NEUKEY + 1 ) , HL 
LD HL , NEUKEY ; 

NEUEN DEFINIEREN 

4 

310 

LD C KEYVEC > , HL 


i 

320 

JP 1A19H 


Ir 

1 

330 

* 


r 

340 

* 

I 


| 

350 

; HAUPTPROGRAMM 


6 

360 

NEUKEY CALL 0 ; 

ALTE KEYBOARDROUTINE AUFRUFEN 

370 

380 

r 

AND A ; 

KEIN ZEICHEN GEDRUECKT 


390 

RET Z ; 

JA, — > 


400 

CP * 0 * 


t 

410 

JR Z , CTRL 


1 

* 

f 

420 

CP * A * ; 

< 1 A ’ 

f 

I 

430 

RET C 

JA, — > 

E 

t 

440 

CP ’Z'+l 

<= ’Z* 

t 

450 

JR C, LETTER 

A 

1 

1 

*4 

Kt 

t 

- * 

460 

CP 60H 

< SHIFT § 

Ü 

f 

470 

RET C 

JA, — > 

r 

480 

CP ’z’+l 

<= KLEIN ’Z» 

t 

490 

JR C, LETTER 

JA, — > 


500 

RET 

• 

< 

510 

* 

* 


r 

j 

520 

LETTER LD HL , SL 

ZEICHEN MIT SHIFT LOCK 


530 

KOR CHL) 

VERKNUEPFEN 

T 

540 

CTRL LD HL , 40 1 8H 

CTRL 

E . 

s 

550 

BIT 7, CHL) 


1 

} 

560 

RES 7, CHL) 

CTRL-BIT LOESCHEN 

f 

[ 

570 

RET Z 

NEIN, — > 

i 

i 

f 

i 

i 

580 

CP '0 * 

* 0 ' 

590 

JR NZ , CONVER 

NEIN, UMCONVERT I ERUNG 
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660 ; 

610 
620 
636 
646 
650 
660 ; 

670 CONVER 

680 

696 

700 

710 

720 

730 

740 

750 

766 

776 ; 

780 


LD A , ( SL ) 

XOR 20H 
LD CSL),A 
XOR A 
RET 

LD HL , CTAB 1 
LD BC , TABLEN 
PUSH BC 
CPIR 
POP BC 
RET NZ 
ADD HL , BC 
DEC HL 
LD A , ( HL ) 

RET 


SHIFT LOCK INVERTIEREN 


ZEICHEN LOESCHEN 


ZEIGER AUF URCODES 

TABELLELAENGE 

RETTEN 

IN TABELLE SUCHEN 
ZURUECK 

NICHT GEFUNDEN — > 
ADRESSE IN ZIELTAB 
ERRECHNEN 
ZIELZEICHEN LADEN 


790 

CTAB 1 

DEFH 

’ AOUSaous ' 



800 

CTAB3 

DEFB 

80 H 

CODES FUER 

AE 

810 


DEFB 

8 1 H 


OE 

820 


DEFB 

82H 


UE 

830 


DEFB 

86H 


SS 

840 


DEFB 

83H 

KLEIN 

AE 

850 


DEFB 

84H 

KLEIN 

OE 

860 


DEFB 

85H 

KLEIN 

UE 

870 


DEFB 

86H 

KLEIN 

SS 

880 

t 





890 

TABLEN 

EQU 

8 

CTAB2-CTAB 1 

900 

t 





910 

SL 

DEFB 

20H 




920 ; 

930 ; DEFINTION DER ZEICHEN 
940 ; 

950 ORG 0F400H 

960 DEFB 44H 

970 DEFB 10H 

980 DEFB 28H 

990 DEFB 44H 

1000 DEFB 7CH 

1010 DEFB 44H 

1020 DEFB 44H 

1030 DEFB 00H 

1040 DEFB 44H 

1050 DEFB 38H 

1060 DEFB 44H 

1070 DEFB 44H 

1080 DEFB 44H 

1090 DEFB 44H 

1100 DEFB 38H 

1 1 10 DEFB 00H 

1 120 DEFB 44H 

1130 DEFB 00H 

1140 DEFB 44H 

1150 DEFB 44H 

1160 DEFB 44H 

1170 DEFB 44H 

1180 DEFB 38H 

1 190 DEFB 00H 


AE 


OE 


UE 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


200 

DEFB 

28H 

210 

DEFB 

00H 

220 

DEFB 

38H 

230 

DEFB 

04H 

240 

DEFB 

3CH 

250 

DEFB 

44H 

260 

DEFB 

3AH 

270 

DEFB 

00H 

280 

DEFB 

00H 

290 

DEFB 

28H 

300 

DEFB 

00H 

310 

DEFB 

38H 

320 

DEFB 

44H 

330 

DEFB 

44H 

340 

DEFB 

38H 

350 

DEFB 

00H 

360 

DEFB 

00H 

370 

DEFB 

28 H 

380 

DEFB 

00H 

390 

DEFB 

44H 

400 

DEFB 

44H 

410 

DEFB 

4CH 

420 

DEFB 

34H 

430 

DEFB 

00H 

440 

DEFB 

38H 

450 

DEFB 

44H 

460 

DEFB 

44H 

470 

DEFB 

58H 

480 

DEFB 

44H 

490 

DEFB 

44H 

500 

DEFB 

58H 

510 

DEFB 

40H 

520 

END ] 

[NIT 


AE 


; OE 


UE 


; SS 
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1.1.2 Die hochauflösende Grafik 


Die hochauflösende Grafik des Colour-Genie verfügt, über 160 
* 102 Punkte. Das Bild wird im Speicherbereich von 4800H 
bis 57EFH abge 1 egt und ist folgendermaßen auf gebaut . Jeder 
Bildpunkt belegt 2 Bits. Diese 2 Bits können 4 verschiedene 
Uerte annehmen» die die Farben repräsent i eren : 


Farbe 

b n + 1 

b n 




schwarz 

0 

0 




blau 

0 

1 




rot 

1 

0 




grün 

1 

1 



■ 

Die 2 

Bits von 

je 4 

B i 1 dpunkten 

sind 

zu einem Byte 

zusammengef aßt , 

und 

zwar jewei ls 

4 

in x-Richtung 


auf e i n ander f o 1 gende B i 1 d punkte . Der Punkt 1 i nks be 1 egt die 
beiden höchstwertigen Bits, der Bildpunkt rechts die beiden 
n iederwert i gen . Die Punkte einer Zeile sind von links nach 
rechts in aufeinanderfolgenden Speicherzellen abgelegt. 
Jede Bildzeile belegt 40 (-28H) Bytes C160 / 4 - 40). Die 
102 Bi ldze ile sind hi nt er ei nander i m Spe i eher abgelegt , 
beginnend mit der Zeile mit der y-Koordinate 0: 


0,0 ' 1,0 ! 2,0 ! 3,0 

+ ___4___ +___ + — + — + — + — +---+ 

4800: !b7 !b6 !b5 !b4 (b3 «b2 !b! !b0 ! 
+ — + — + — + — + — 4 — + — + — + 

0,1 ! 1,1 ! 2,1 ! 3,1 

+—+—+. — — 4—4—4 
4828: !b7 l b6 !b5 !b4 !b3 (b2 !bl !bö ! 

+ — + — + — + — + — 4—4 — +— - + 

0,2 ! 1,2 * 2,2 ! 3,2 

+ + 4 4 + + 4 4 4 

4850: !b7 !b6 !b5 !b4 !b3 !b2 !bl 'b0 ! 


4.0 ! 5,0 ! 6,0 1 7,0 ! 

+ 4 4—4—4 4 4 4 4 

4801: !b? !b6 !b5 !b4 !b3 !b2 !bl !b0 ! 

+ + 4 + + 4 4 + 4 

4.1 1 5,1 ' 6,1 ! 7,1 

4 4 4 4 4 4 4 4 4 

4829: !b7 !b6 !b5 !b4 !b3 !b2 !bl !b0 ! 

4—4 4— 4— 4— 4 + 4—4 

4.2 ! 5,2 ! 6,2 ' 7,2 ! 

4 4 4 4 4 4 — 4 4 — 4 

4851: !b7 !b6 !b5 !b4 lb3 'b2 'bl !bÖ ! 


4 4 4 4 4 4—4—4 

* 

0,99 ! 1,99 ! 2,99 ! 3,99 

4 4 — 4 4 4 4—4 4—4 

5778: !b7 !b6 !b5 !b4 !b3 !b2 (bl !bÖ 1 

4 4 4 4 + + 4 + 4 

0,100! 1,100! 2,100' 3,100 

4 4 + + + 4 + + + 

57A0:!b7 !b6 !b5 !b4 !b3 !b2 !bl !bö ( 

4 4— 4— 4— 4— 4 4 4—4 

0,101' 1,101! 2,101! 3,101 

4 4 4 + + 4 + 4—4 

57C8: !b7 !b6 !b5 !b4 !b3 !b2 !bl !b0 ! 

4 4 4 4 4 4 4 4 4 


4,99 ! 5,99 ! 6,99 ! 7,99 ! 

4 4 4 4 4 4— 4— 4— 4 

5779: !b7 !b6 !b5 !b4 !b3 !b2 !bl !b0 ' 

4—4 4—4—4 4 4 4— -4 

4,100! 5,100' 6,100! 7,100' 

4 4 4 4 4 4—4 4—4 

57A1: !b7 !b6 !b5 !b4 'b3 !b2 'bl !b0 ' 

4 4 4 4 4 4 4 4 — 4 

4,101! 5,101! 6,101! 7,101! 

4 4 4 4- — 4 4 4 4 4 

57C9;(b7 fb6 !b5 !b4 !b3 !b2 !bl !bö ! 

4 4 4 4 4 4 4—4 4 


156.0 ! 157,0 ! 158,0 (159,0 

4— 4 4 4—4—4 4 4 4 

..4027: !b7 !b6 !b5 !b4 !b3 !b2 !bl !b0 ! 

4 4 4 4 4 4 4 4—4 

156.1 ! 157,1 (158,1 ‘159,1 

4 4 + 4 f + 4 4 — 4 

,.4B4F:!b7 !b6 !b5 !b4 'b3 'b2 !bl !b(' ! 

4 _._ 4_._4 4 + 4 + 4—4 

156.2 (157,2 (158,2 !159,2 

4 — 4 — 4 4—4 4— 4— 4 — 4 

. .4877: !b7 !b6 !b5 !b4 !b3 f b2 «bi !b0 ' 

4 4 +—4—4 4—4—4 + 


156,99 ! 157,99 ! 158,99 (159,99 

4 4 4 4 4 4— 4 — -4— -4 

. .579F: !b? !b6 (b5 !b4 !b3 !b2 !bl 'bO ' 

4 4 4 4 4 4 — -4 4 + 

156,100! 157,100! 158, 100! 159,100 

4 + + + 4 4 4 4 4 

,.57C7:'b7 'b6 !b5 l b4 l b3 !b2 !bl 'b0 ‘ 

t— + — 4— 4— 4— 4 — 4—4—4 

156, 101!157,101'15B, 101(159,101 

4 4 + 4 4 4 4 4 4 

. . 57EF : !b7 'b6 !b5 !b4 !b3 !b2 'bl ’bO ' 


+ — 4— 4—4 — 4 — 4 4 + 4 


1.1.2 Bildschirmausgabe: Die hochauflösende Grafik Seite 12 


Viele ROM-Rout i nen können zur Erstellung von Grafiken, 
genutzt werden, die in ihrer Funktion, den Bas i canue i sungen 
gleichen Namens entsprechen: 

I 

I 

’ \ 

i 

*********************************************************** 

* i * 

* FGR : hochauflösende Grafik einschalten ] * 

* * 

* E : 38A9H ! * 

* R : AF, BC * 

* I : / 1 * 

* 0 : / * 

* * 

*********************************************************** 

i 

I 

Funktion: - " * •.„*■.**.**. - 

Die hochauflösende Grafik wird eingeschaltet, dazu wird das 
Bit 5 von Port FFH gesetzt und der CRTC speziell 
initialisi ert . 

Be i sp i el : 


CALL FGR 


*********************************************************** 
* * 

* LGR : hochauf 1 ösende Grafik ausschalten , ♦ 

* * 

* E : 38B0H * 

* R : AF, BC * 

* I : / * 

* 0 : / * 

* * 

*********************************************************** 

Funktion: ! 


Die hochauf 1 ösende Grafik wird ausgescha 1 tet 
Bit 5 von Port FFH zurückgesetzt und der 
i n ' 


dazu ui rd das 
CRTC spez i e 1 1 


i 

Be i sp i e 1 : 


CALL 


LGR 




1 . 1.2 
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*********************!) (************************************* 
* 

: Hintergrund einschalten 


BGRD 


I 


* 

* 

* E : 38B7H 

* R : AF , B 

* I : / 

* 0 : / 

* * 


Funkt i on : 


Der Hintergrund Cschuarz durch Magenta ersetzt) wird 
e l ngescha 1 tet , dazu uird das Bit 2 von Port FFH gesetzt , 

Beispiel : 

I 

CALL FGR 


*********************************************************** 


* 


• 

* 

NBGRD : 

H i nt ergründ ausschal ten 

* 



* 

E : 

38BBH 

* 

R : 

AF, B 

* 

I : 

/ 

* 

0 : 

/ 

* 




* 

! * 

* 


Funkt i on : 


Der Hintergrund Cschuarz durch Magenta ersetzt) uird 
ausgeschaltet, dazu uird das Bit 2 von Port FFH 
zurückgesetzt . 

i 

Beispiel : E 


CALL NBGRD 


*********************************************************** 

* | * 

* FCLS : Bildschirm mit Farbe füllen * 

* ' * 

* E : 384DH * 

* R : AF, BC, DE * 

* I : A = Farbcode (0 = sch, 1 = bl , 2 = rot, 3 = gr)* 

* 0 : / i » 


* * 
*********************************************************** 


Funktion: 

Der gesamte HGR-Bi 1 dsch i rm uird mit der angegebenen Farbe 
gefüllt. Dazu uird der Spe i cherbere ich von 4800 bis 57FF 
C!) mit 00H C schuarz ) , 55H (blau), AAH Crot) oder FFH 
Cgrün) gefüllt. 


f 
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Be i spie 1 : 


LD 

CALL 


A , 3 
FCLS 


; Bi ldschirm grün 




* FCOLOU : Sehre i bf arbe fest. 1 egen * 

-* * 

* E : 38DAH * 

* R : AF * 

* I : A = Farbcode (0 - sch» 1 = bl, 2 ~ rot.» 3 = gr>* 

* 0 : / * 


*********************************************************** 

Funktion: 


Hit diesem Unterprogramm wird die Sehre i bf arbe für alle 
folgenden Operationen in der Grafik festgelegt . Nach 
Überprüfung auf Bereichsüberschreitung, die einen FC-Fehler 
hevorruf t, uird die Schreibfarbe in C4313H) abgelegt. 


Be i spiel : 


LD 

CALL 


A » 1 

FCOLOU 


; Farbcode für blau 
; Schreibfarbe fest 1 egen 


*********************************************************** 
* * 
* CI RCLE : Kre i s ze i chnen * 


* E : 3B09H * 

* R : AF » BC , DE * 

* I : B = x-Koordinate des Mittelpunktes * 

* D = y— Koordinate des Mittelpunktes * 

* A = Radius * 

* 0 : / * 

* * 
*********************************************************** 


Funkt i on : 


entspr icht Basic: CI RCLE B , D , A 


Be i sp i e 1 : 


LD 

LD 

LD 

CALL 


B ,80 
D , 50 
A, 30 
CIRCLE 


; X = 80 
; Y = 50 
; R = 30 

; CIRCLE 80,50,30 


i 
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*********************************************************** 
* 

* PAINT : Fläche mit Farbe füllen 


E : 3E78H 
R : AF, BC, DE 
I : E - x-Koordinate 
D - y-Koordinate 

(431DH) = Anzahl der Begrenzungsf arben + 1 
C4319H) = Füllfarbe 
( 43 1 AH > = Begrenzungsfarbe 1 
(431 BH ) - Begrenzungsf arbe 2 


Funktion: 

entspricht BASIC: PAINT E , D , ( 4319H )+l,(431AH)+l,( 43 1 BH > + 1 
Es können keine , eine oder zue i Begrenzungsfarben angegeben 
uerden . (431DH) muß dann die Uerte 1, 2 oder 3 enthalten. 


Beispiel : 


LD 

E , 80 

4 

> 

x-Koordinate 

LD 

D , 50 

4 

* 

y-Koord i nate 

LD 

A,2 

I 

1 Begrenzungsf arbe 

LD 

(431DH) , A 



LD 

A,1 

f 

Fül 1 färbe — blau 

LD 

C4319H) , A 



LD 

A>2 

* 

* 

Begrenzungsf arbe = 

LD 

<431 AH) , A 



CALL 

PAINT 

* 

PAINT D , E , 2 , 3 


*********************************************************** 
* 

Line von (D,E) nach (H,L) ziehen 


* DETOHL 

* 


E 

R 

I 


3C1FH 

AF, BC, DE, HL, BC * , DE f , HL 
D - x— Koordinate 1 
E * y-Koordinate 1 
H = x-Koordinate 2 
L « y-Koordinate 2 


* 

* 

I : D - x-Koordinate 1 ■"'"'‘"Tr 

* 

* 

* 

* 0 : / 

* 

********************************************************** 
Funktion : 

Von dem Punkt mit den Koordinaten CD,E) uird eine Linie zu 
dem Punkt mit den Koordinaten (H,L> gezogen. Die Farbe muß 
zuvor mit FCOLOU definiert uerden. 


Beispiel : 


LD 

LD 

LD 


D>1 
E, 1 
H, 158 


; xl 

; yi 

; x2 


1 

1 

158 
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LD L,100 

CALL DETOHL 


y2 = 100 

Linie ( D , E ) nach ( H » L ) 


*********************************************************** 

* 

* PLOTHL : Punkt setzen 

* 

* E : 3B8AH 

* R : AF , BC , DE , HL 

* I : L = x-Koord i nate 

* H - y-Koord i nate 

* 0 : / 

* 

********************************************************** 


Funktion : 

' ■ ^ d * ~ T ■** 1 ' ^ , p * > J *' < ' <■ ■* ’ ^ 1 4 * 


Der Punkt mit den Koordinaten (D,E) wird mit der Farbe, die 
zuvor durch FCOLOU def i n i ert wurde , gesetzt . Durch 
Einsprung bei PLOTHL + 3 kann der Farbcode in A übergeben 
werden . 


Bei spi e 1 : 

x = 80 
y = 50 

Punkt <L,H) setzen 


LU 

LD 

CALL 


L. , öü 

H , 50 
PLOTHL 


*********************************************************** 

* * 


* 

CPOXNT : 

Punkt abf ragen 


* 

* 




* 

* 

E : 

3F3AH 


4t 

* 

R : 

AF, BC, DE, HL 


■ ■ **■* 

* 

I : 

L = x— Koordinate 


* 

* 


H = y-Koord i nate 


* 

* 

0 : 

A - Farbcode des Punktes 


* 


* * 

*********************************************************** 


Funktion : 

Die Farbe des Punktes mit den Koordinaten CL,H) wird 
abgefragt und im Akku zurückgegeben . 

Beispiel : 


LD 

L , 80 

; x = 80 

LD 

H , 50 

; y = 50 

CALL 

CPOINT 

; Punkt abfragen 

CP 

1 

; Farbe blau ? 

JR 

Z , BLAU 

; ja , — > 


1 U 
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Die 

ersten 

be i den 

Beispiele zeigen wie Bilder in > 

hochauf 1 ösenden Grafik von Maschi nenpr ogrammen auf beb 

werden können. Beispiel 

1 malt konzentr ische Kreise i 

uechse 1 nden 

Farben 

und 

demonstriert insbesondere < 

Anwendung der Unterprogramme CIRCLE und PAINT. 

100 


110 

; * 



* 

120 

;* BEISPIEL 


* 

130 

; * 



* 

140 

;* KONZENTRISCHE 

KREIS 

IN FGR * 

150 

; * 



* 

160 

; * (C) 

1985 LUIDGER RÖCKRATH * 

170 

; * 



* 

180 


190 

r 




200 

FCOLOU 

EQU 

38DAH 

; SCHREIBFARBE UAEHLEN 

210 

FCLS 

EQU 

384DH 

; B I LDSCH I Rtl LOESCHEN 

220 

FGR 

EQU 

38A9H 

; FGR ANUAEHLEN 

230 

LGR 

EQU 

38B0H 

; LGR ANUAEHLEN 

240 

BGRD 

EQU 

38B7H 

; BACKGROUND EIN 

250 

NBGRD 

EQU -- 

38BBH 

; BACKGROUND AUS 

260 

CIRCLE 

EQU 

3B09H 

; KREIS ZEICHNEN 

270 

PAINT 

EQU 

3E78H 

; FLAECHE AUSFUELLEN 

280 

T 




290 

ANZPNT 

EQU 

431 DH 

; ANZAHL DER ARG. FUER PAINT 

300 

FUELLF 

EQU 

4319H 

; FUELLFARBE 

310 

BEGRF1 

EQU 

431 AH 

; BEGRENZUNGSFARBE 

320 

BEGRF2 

EQU 

431 BH 

; BEGRENZUNGSFARBE 

330 

f 




340 

; PROGRAHMSTART 



350 

) 




360 


ORG 

7000H 


370 

START 

CALL 

FGR 

; GRAFIK EIN 

380 


LD 

A ,0 

; FCLS 

390 


CALL 

FCLS 


400 


LD 

A, 1 

; FCOLOUR 1 

410 


CALL 

FCOLOU 


420 


LD 

C , 8 

; RADIUS 

430 

LOOP 

LD 

A,C , 

; FCOLOUR RADIUS / 8 j ^ ^ 

440 


RRCA 



450 


RRCA 



460 


RRCA 



470 


AND 

3 


480 


JR 

NZ »LI 

; KEIN SCHUARZ, — > 

490 


INC 

A 

; SCHUARZ — > BLAU 

500 

LI 

CALL 

FCOLOU 


510 


LD 

B , 80 

; X = 80 

520 


LD 

D,51 

; Y - 51 

530 


LD 

A,C 

; RADIUS -> A 

540 


PUSH 

BC 

; RADIUS RETTEN 

550 


AND 

A 


560 


CALL 

CIRCLE 

; CIRCLE 80,51 ,B 

570 


POP 

BC 


580 


LD 

D , 5 1 

; Y =5 1 

590 


LD 

A,C 

; X=80 + RADI US— 4 

600 


ADD 

A ,80-4 


610 


LD 

E, A 


620 


LD 

A , 3 

; ANZAHL DER ARG FUER PAINT 

630 


LD 

C ANZPNT ) , A 


o. 3 0) a i »-* 
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640 

LD 

A,C ; FARBE = RADIUS / 8 

650 

RRCA 


660 

RRCA 


670 

RRCA 


680 

AND 

3 

690 

LD 

( FUELLF 5 , A ; FUELLFARBE 

700 

LD 

CBEGRF1) „ A ; BEGRENZUNGSFARBE 

710 

DEC 

A ; LETZTE KREISFARBE 

720 

AND 

3 

730 

JR 

NZ,L2 ; KEIN SCHUARZ — > 

740 

INC 

A ; SCHUARZ — > BLAU 

750 L2 

LD 

C BEGRF2) , A ; BEGRENZUNGSFARBE 

760 

PUSH 

BC 

770 

CALL 

PAINT ; PAINT E,D,C,C,C-1 

780 

POP 

BC 

790 

LD 

A,C ; RADIUS = RADIUS + 8 

800 

ADD 

A , 8 

810 

LD 

C, A 

820 

CP 

64 ; RADIUS = 64 

830 

JR 

NZ » LOOP ; NEIN — > 

840 

CALL 

49H ; UARTE TASTENDRUCK 

850 

RET 


860 

END 

START 


V* ■ 
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Be ispiel 2 füllt den Bildschi rm mit ineinander 
verschachtelten Rechtecken. Die Unregelmäßigkeiten dabei 
ergeben sich aus dem Uachsen des Parameters B über 51. 
Durch Drucken der RETURN-Taste nach Fertigstellung des 
ersten Bildes (wird erst nach einiger Zeit akzeptiert) > 
wird der Background abgeschaltet. Nach nochmaligem Drücken 
der RETURN-Taste werden die Farben verändert. Durch ein 
weiteres Drücken der RETURN-Taste kann danach wieder der 
Background eingeschaltet werden. Schließlich kann durch 
Drücken der RETURN-Taste das Programm beendet werden. Das 
Beispiel zeigt insbesondere die Anwendung der 
Unterprogramme DETOHL, PLGTHL und CPOINT. Dabei ist 
besonders zu beachten, daß DETOHL die X-Endkoord i nate in H 
und die Y-Endkoord i nate in L erwartet, während PLOTHL und 
CPOINT die X-Koordinate in L und die Y-Koordinate in H 


erwar ten 




100 ; *************************+******************* 


110 ;* * 

120 ; * BEISPIEL * 

130 ;* * 

140 ;* RECHTECKE IN FGR AUSGEBEN * 

150 ; * * 

160 ;* fCy 1985 LUIDGER RÖCKRATH * 

1 70 ; * * 




190 


200 

FCOLOU 

EQU 

38DAH 

210 

FCLS 

EQU 

384DH 

220 

FGR 

EQU 

38A9H 

230 

LGR 

EQU 

38B0H 

240 

BGRD 

EQU 

38B7H 

250 

NBGRD 

EQU 

38BBH 

260 

DETOHL 

EQU 

3C1FH 

270 

PLOTHL 

EQU ‘ 

3B8AH 

280 

CPOINT 

EQU 

3F3AH 

290 

} 



300 

; PROGR AtlHST ART 


310 

i 



320 


ORG 

7000H 

330 

START 

CALL 

FGR 

340 


LD 

A ,0 

350 


CALL 

FCLS 

380 


CALL 

BGRD 

370 


LD 

B, 1 

380 

LOOP 

LD 

A , B 

390 


AND 

O 

400 


CALL 

FCOLOU 

410 


LD 

D , B 

420 


LD 

E , B 

430 


LD 

A, 159 

440 


SUB 

B 

450 


LD 

H,A 

460 


LD 

L , B 

470 


PUSH 

BC 

480 


PUSH 

HL 

490 


CALL 

DETOHL 

500 


POP 

DE 

510 


POP 

BC 


LINIE VON CD,E> NACH CH,L> 

PUNKT AUF CL,H> SETZEN 

PUNKT (L,H> ABFRAGEN 


GRAFIK EIN 
FCLS 

BGRD 

ZAEHLER 


FCOLOUR B 
X1=B 
Y 1 =B 

X2~ 1 59-B 


Y2=B 

ENDKOOR. 

CO,E> — > C H , L ) 
JET2T ANFKOOR. 
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530 


SUB 

B 


540 


LD 

L „ A 


550 


LD 

H , D ; 

X2=X 1 

560 


PUSH 

BC 


570 


PUSH 

HL 

ENDKOOR. 

580 


CALL 

DETOHL 

CD , E ) — > < H , L ) 

590 


POP 

DE 

JETZT ANFKOOR. 

600 


POP 

BC 


610 


LD 

L , E 

Y2=Y 1 

620 


LD 

H , B 

X2=B 

630 


PUSH 

BC 


640 


PUSH 

HL 

ENDKOOR. 

650 


CALL 

DETOHL 

CD,E) — > CH,L) 

660 


POP 

DE 

JETZT ANFKOOR. 

670 


POP 

BC 


680 


LD 

L , B 

Y2=B 

690 


LD 

H , B ; 

X2=B 

700 


PUSH 

BC 


710 


CALL 

DETOHL * 

X 

A 

1 

t 

tu 

Q 

V 

720 


POP 

BC 


730 


INC 

B 

GROESSE - 1 

740 

- 

JR 

NZ , LOOP 

GROESSE > 0 — > . ... 

750 


CALL 

49H 

UARTE TASTENDRUCK 

760 


CALL 

NBGRD 

BACKGROUND AUS 

770 


CALL 

49H 

UARTE TASTENDRUCK 

780 


t 



790 


; FARBEN ROTIEREN: 

800 


; SCHUARZ — > BLAU — > ROT — > GRUEN — > 

810 


* 

* 



820 


LD 

HL,0 

H = Y> L = X , X=0, Y=0 

830 L00P2 

PUSH 

HL 


840 


CALL 

CPOINT 

FARBE BEST. 

850 


POP 

HL 


860 


INC 

A 

FARBE + 1 

870 


AND 

3 


880 


CALL 

FCOLOU 

; NEUE FARBE SETZEN 

890 


PUSH 

HL 


900 


CALL 

PLOTHL 

; PUNKT IN NEUER FARBE SETZEN 

910 


POP 

HL 

1 

1 

920 


INC 

L 

; X + 1 

930 


* £ * 

LD 

A,L 


940 


CP 

160 


950 


JR 

NZ,L00P2 

; NEIN, — > 

960 


LD 

L » 0 

; X = 0 

970 


INC 

H 

; Y + 1 

980 


LD 

A , H 

; Y = 102 

990 


CP 

102 

r 

1000 


JR 

NZ , L00P2 ; NEIN , — > 

1010 


CALL 

49H 

; UARTE TASTENDRUCK 

1020 


CALL 

BGRD 

; BACKGROUNG EIN 

1030 


CALL 

49H 

; UARTE TASTENDRUCK 


1040 RET 

1050 END 


START 
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Das 1 etzte Bei sp i el ermög 1 i cht den Ausdruck des 
Graf i kbi 1 dsch i rm auf einem Drucker . Die Farben werden in 
Grausiufen umgesetzt . Die Steuer codes für den Drucker s i nd 
für alle EPSON- und STAR-Drucker geeignet,. Bei anderen 
Druckern müssen nur f o 1 gende Steuer codes geändert werden : 

lBH,41H,n = Vorschub auf n-Punkte einstellen 
i BH , 4CH > C0H , 03H = 960 Bytes in Grafik folgen 


100 


110 

* * 
i ^ 



* 

120 

;* BEISPIEL 


* 

130 

; * 



« 

140 

; * FGR 

AUSGABE 

AUF DRUCKER * 

1S0 

; * 



* 

160 

; * <C> 

1985 LUIDGER RÖCKRATH * 

170 

; * 



* 

180 


190 

t 




200 

PRCHAR 

EQU 

050EH 

ZEICHEN A AUF DRUCKER 

210 

BREITE 

EQU 

40 

40 ZEICHEN PRO ZEILE 

220 

BYPDOT 

EQU 

4 

BYTE AUF DRUCKER PRO DOT 

230 

MASKE 

EQU 

' 0F0H 

MASKE 

240 

HGRRAM 

EQU 

4800H 

SPEICHER FUER FGR 

250 

ESC 

EQU 

27 

ESC = 27 

260 

CR 

EQU 

13 


270 

> 




280 

START 

LD 

A , ESC 

ESC »A, BYPDOT AUF DRUCKER 

290 


CALL 

PRINT 

DEFINIERT ZE I LENVORSCHUB 

300 


LD 

A> 'A' 

IN PUNKTEN 

310 


CALL 

PRINT 


320 


LD 

A » BYPDOT 


330 


CALL 

PRINT 


340 


LD 

HL > HGRRAM 

350 

ZEILE 

LD 

B, BREITE 

; 40 ZEICHEN / ZEILE 

360 


LD 

A»ESC 

ESC » L , C0H , 3 

370 


CALL 

PRINT 

ES FOLGEN 960 GRAPH IC-BYTES 

380 


LD 

A» ’L’ 


390 


CALL 

PRINT 


400 


LD 

A , 0C0H 


410 

i . * * > 

CALL. . 

I ^ P R X MT * 1 ; * ‘ v j V'” * t ff / » 

420 


LD 

A,3 


430 


CALL 

PRINT 


440 

BYTE 

LD 

A, CHL> 

1 BYTE AUS FGR 

450 


INC 

HL 


460 


LD 

C,4 

4 DOTS PRO BYTE 

470 

DOT 

RLCA 


NAECHSTEN PUNKT 

480 


RLCA 


NACH BIT 0 UND 1 

490 


PUSH 

AF 

BYTE RETTEN 

500 


AND 

3 

1 DOT HERAUSBLENDEN 

510 


ADD 

A , A 

* 2 

520 


PUSH 

AF 


530 


ADD 

A , A 

* 4 

540 


POP 

DE 


550 


ADD 

A , D 

A - FARBCODE * 6 

560 


PUSH 

HL 


570 


LD 

HL > MUSTER 

580 


LD 

E, A 


590 


LD 

D , 0 


600 


ADD 

HL »DE 

; HL ZEIGT AUF MUSTER 
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610 

PUSH 

BC 


620 

LD 

B , 6 ; 

6 BYTES DES MUSTERS 

630 OUT 

LD 

A , (HL) ; 

MUSTERBYTE LADEN 

640 

AND 

MASKE ; 

MIT MASKE UND I EREN 

650 

CALL 

PRINT ; 

AUSGEBEN 

660 

INC 

HL 


670 

DJNZ 

OUT 


680 

POP 

BC ; 

ZAEHLER ZURUECK 

690 

POP 

HL ; 

ZEIGER AUF FGR-RAM ZURÜCK 

700 

POP 

AF ; 

BYTE ZURUECK 

710 

DEC 

C ; 

4 PUNKTE / BYTE BEARBEITET 

720 

JR 

NZ , DOT ; 

NEIN, — > 

730 

DJNZ 

BYTE ; 

ZEILE FERTIG, NEIN — > 

740 

LD 

A , CR ; 

VORSCHUB BYPDOT 

750 

CALL 

PRINT ; 

PUNKTE 

760 t . 

LD 

DE > 57F0H ; 

ENDE FGR-RAM PRINT . « 

770 

RST 

18H 


780 

JR 

NZ, ZEILE ; 

NEIN — > UE I TER 

790 

RET 



800 

; DRUCKT ZEICHEN IN A 

810 PRINT 

PUSH 

BC 


820 

LD 

C, A 


830 

CALL 

PRCHAR 


840 

POP 

BC 


850 

RET 



860 

* 



870 

; MUSTER ZUR UMSETZUNG DER FARBE 

880 

* 



890 MUSTER 

DEFB 

0 ; 

SCHWARZ 

900 

DEFB 

0 


910 

DEFB 

0 


920 

DEFB 

0 


930 

DEFB 

0 


940 

DEFB 

0 


950 

DEFB 

24H ' ; 

BLAU: X X * 

960 

DEFB 

48H ; 

X X 

970 

DEFB 

90H ; 

X X 

980 

DEFB 

24H ; 

X X 

990 

DEFB 

48H 

X X 

1000 

DEFB 

90H 

X X 

1010 

DEFB 

6CH 

ROT XX XX 

1020 

DEFB 

0B4H 

X XX X 

1030 

DEFB 

0D8H 

XX XX 

1040 

DEFB 

6CH 

XX XX 

1050 

DEFB 

0B4H 

X XX X 

1060 

DEFB 

0D8H 

XX XX 

1070 

DEFB 

0FCH 

GRUEN XXXXXX 

1080 

DEFB 

0FCH 

XXXXXX 

1090 

DEFB 

0FCH 

XXXXXX 

1100 

DEFB 

0FCH 

XXXXXX 

1 1 10 

DEFB 

0FCH 

XXXXXX 

1120 

DEFB 

0FCH 

XXXXXX 

1130 

END 

START 
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1.1.3 Der V i deo-Control 1 er C CRTC ) 


Die Umwandlung des Inhaltes des Bildwiederholspeichers in 
ein Videosignal wird beim Colour— Genie von einem 
hoch i ntegr i er ten Videocontroller (CRTC) übernommen. Dieser 
Chip hat 16 Register mit denen er programmiert werden kann, 
über den Systembus ist er mit 2 Adressen anzusprechen : 0FAH 
(= 250) und 0FBH ( = 251). In die Adresse 250 muß zunächst 
die Reg i Stern ummer geschr i eben werden , bevor mit ei nem 
OUT-Befehl auf die Adresse 251 das entsprechende Register 
be legt werden kann . 

Die 16 Register des CRTC haben folgende Funktion: 


Reg 

Funktion 


Adr . 

Tab 

I n i twert 




LGR 

FGR 

LGR 

FGR 

0 

Hör i zonta l e Abtastgeschw i nd i gke i t 

42FF 

430F 

70 

70 

1 

Zeichen pro Zei le 

42FE 

430E 

40 

40 

2 

Hör i zonta 1 e Synchron i sat i onspos i t ion 

42FD 

430D 

52 

52 

3 

Länge der 

Ze i lensynchron i sat ion 

42FC 

430C 

150 

150 

4 

Vert i ka le 

Gesamtzahl der Zeilen 

42FB 

430B 

38 

126 

5 

Vert i ka 1 e 

Justierung (Bi ldfang) 

42FA 

430 A 

0 

31 

6 

Ze i lenzah 1 

(dargestellte Zeilen) 

42F9 

4309 

25 

102 

7 

Vert i ka le 

Synchron i sat i onspos it i on 

42F8 

4308 

31 

1 16 

8 

Inter 1 ace 

und Skew 

42F7 

4307 

160 

32 

9 

Zei chen— End— Raster 

42F6 

4306 

7 

1 

10 

Cursor B 1 i nken , Cursor Start Raster 

42F5 

4305 

196 

32 


Bit 0-3 : 

Cursorstartraster 






Bit 5-6 : 

= 00 Cursor bl inkt nicht 






= 01 Cursor aus 
= 10 Cursor blinkt schnell 
= 11 Cursor bl inkt langsam 


1 1 

Cursor End Raster 


42F4 

4304 

7 

0 

12 

Bi 1 dwi ederho 1 spei cheradresse 

(ÜSB) 

42F3 

4303 

4 

8 

13 


( LSB) 

42F2 

4302 

0 

0 

14 

Cur soradr esse 


42F 1 

4301 

0 

0 

15 

17 


42F0 

4300 

1 

0 

t * k- 

* r r I' 1 1 „ * r - 1 ■ - ^ '< 1 .1 M 




- i 1 - * 







Bemerkungen : 

zu : Hör i zonta 1 e Abtastgeschw i nd i gke i t 

Erhöhen des Uertes macht das Bild schma 1er, Erniedri gen 
brei ter . Änderungen s i nd aber nur in ei nem sehr schma 1 em 
Bere ich mög 1 ich , da sonst die Synchron i sat ion verloren 
geht . 

zu : Hör i zonta 1 e Synchron i sat i onspos i t i on 

Durch Verändern dieses Uertes kann das Bild auf dem 
Bi ldsch irm hör i zonta 1 veschoben werden . Größerer Uert 
bewirkt Li nksversch i eben . 


zu: Vertikale Synchronisationsposition 

siehe oben . Größerer Uert bewirkt Hochsch i eben des B i ldes * 
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zu : Zeichenendraster 

a 1 1 e i n i ge Änderung führt sofort zu Desynchron i sat i on 

zu : Cursor Bl inken und Cursor startraster / -endraster 

Die Uerte für diese beiden Register nicht hier, sondern in 
die Spei cherze 1 1 en 40 1 9H C Endraster) und 401AH C Startraster 
und Blinken) eintragen. Die RAH-Tabelle uird nur bei der 
Initialisierung benutzt. Die Videoausgabe über OUTCH setzt 
bei jedem Aufruf durch die Routine CURSET Cs. u.) beide 
Register auf die in diesen Spei cherze 1 len bef indl ichen 
Uerte . 


zu : Bi 1 dsch i rmspei eher adr esse .. * 

Hier muß die Adresse - 4000H abglegt werden 
zu: Cursoradresse 




Die Cursor adr esse muß abso lut Calso ni cht abzüg lieh 4000H, 
s* o.) hier abgelegt werden. Ändern der Uerte in der 
RAIl-Tabelle ist auch hier sinnlos, da die OUTCH-Rout i ne 
hier bei jedem Aufruf die Cursorpos i t i on C4020H) einträgt. 


Für die Uerte aller 16 Reg i ster i st für beide Graf i kmod i im 
RAM eine T abe Ile enthal ten , die die Uerte all erd i ngs i n 
umgekehrter Reihenfolge enthält. Diese beiden Tabellen 
werden beim Systemstart aus dem ROM geladen C ROH-Tabe 1 1 e 
LGR : 3800H, FGR : 3810H) und durch die Anweisungen LGR und 
FGR werden die CRTC— Reg i ster belegt und außerdem wird ein 
Bit von Port 0FFH umgesetzt. Im ROH sind übrigens noch je 
eine Tabelle für die NTSC-Horm vorhanden C LGR : 3823H , FGR: 
3833H ) . 

Außer durch die Anwei sungen LGR und FGR werden die 
CRTC-Reg i ster auch bei jedem Ui edere i ntr i tt in die 
Haupt sch 1 e i f e mit den LGR-Uerten neu bei egt . Daher können 
durch POKEs in die RAH-Tabelle im Direktmode Änderungen 
vor genommen werden , die be i m Ersehe i nen des * Ready ’ wirksam 
werden. Änderungen der Cursorpar ameter und -position sind 
hierdurch aber nicht mög lieh Cs. o . ) . 

Uill man die RAH-T abe 1 1 e per Bas i eprogramm ändern , muß man 
zur Neu i n i t i a 1 i s ierung des CRTC den gerade gewählten 
Grafikmode noch einmal aktivieren. 

Von Hasch i nenprog rammen aus können mit folgenden 
Anweisungen die CRTC—Reg i ster belegt werden: 


LD 

A, 1 

; Register 1 anwählen 

OUT 

C0FAH) „ A 


LD 

A ,42 

; 2eichen / Zeile = 42 

OUT 

C0FBH) , A 
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Außerdem können folgende Unterprogramme benutzt werden: 


* * 

* CRTC2S : 2 Register des CRTC setzen ♦ 

* # 

* E : 3047H * 

* R : AF * 

* I : A = Reg i stern ummer * 

* HL — Uert CH für Reg A, L für Reg A+l * 

* 0 : / * 

* * 




Funktion : 


Zuei Register des CRTC werden neu belegt. Reg A erhält den 
Uert von H, Reg A-l den von L. 


Be i spi e 1 : 


LD HL , C 4020H ) 

LD A,14 

CALL CRTC2S 


; Cursoradresse laden 
; Reg 14 C Cursor ad resse) 

; Cursor adresse CRTC setzen 


* 

* CURSET : Cursor setzen 

* 


E 

R 

I 

0 


305FH 

AF 

HL = Cursoradresse 
/ 


* 

* 

* 

* 

* * 


Funktion : 

Reg 10 des CRTC wird den Cursorparametern aus C4019H) und 
‘ C401AH) geladen und Reg 14 mit der Cursor adresse . Außerdem 
wird auf der Cursorposition im Farbspeicher die 
augenblickliche Schreibfarbe C4023H) eingesetzt. 

Be i sp i el : 

LD HL , 4450H ; Cursor auf 4450H 

CALL CURSET 
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*********************************************************** 

* * 

* CURRES : Cursor 1 öschen * 

* * 

* E : 3059H * 

* R : AF * 

* I : HL = Cursoradresse * 

* 0 : / * 

# * 

*********************************************************** 

Funkt i on : 

Reg 10 des CRTC uird mit 20H> Reg 11 mit 7 und Reg 14 mit 
der Cursoradresse gel aden . Ansonsten siehe oben . 

" " t ft'«* | lJr- ** 

Be i spie 1 : 


LD HL , 4450H ; Cursor auf 4450H 

CALL CURRES ; löschen 
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Mit f o 1 gendem Bei spiel programm wird das B i 1 dsch i rmformat i m 
Textmodus auf 30 Zeilen a 50 Zeichen erue i tert . Dazu muß 
der CRTC umprogrammiert werden. Außer den Zeichen pro Zeile 
und der Anzahl der dargestel lten Zei len muß die Position 
der hör i zonta len und vertikalen Synchron i sat i on geändert 
werden , um das Bild nach 1 i nks oben zu verschieben . D i ese 
Programm i erung erfolgt bei der Initial isierung. 

Uürde man nur den CRTC derartig umprogrammieren, würde das 
Bild ziemlich konfus aussehen , denn der Videotreiber des 
Bas i ci nterpreters muß das Bildformat kennen , um den 
B i 1 dui ederho 1 spei eher richtig zu füllen. Also muß ein 
völlig neuer Vi deotrei ber geschr i eben werden , i n dem alle 
Parameter , die aus dem Bi 1 dformat hergele i tet sind , 
geändert sind. Folgendes Beispielprogramm enthält einen 
solchen U i deotrei ber . Dazu wurde mit dem NEUDOS 
Disassembler (DISASSEM) mit der STD— Option aus dem Treiber 
i m ROH C 3039H - 3222H , sow i e 35F8H - 3652H > ein 
Quel Iprogramm erzeugt, das dann an al len erforderl ichen 
Ste 1 1 en geändert wurde . Sch 1 i eß 1 i ch wurden die 
überf 1 üssigen Programmtei le wieder entfernt und stattdessen 
Sprünge und Aufrufe ans ROM ei ngesetzt . So wurde der 
nachfolgend aufgelistete Videotreiber erstellt. Aus dieser 
Endstehungswe i se erk 1 ären sich die merkwürd i gen Labels 
(AAA, AAB, ...} und das fast gänzliche Fehlen von 
Kommentaren . Led iglich einige Struktur i er ende über sehr i f ten 
wurden eingefügt. Uer an tiefergehenden Kommentaren 
i nteress iert ist, kann im ROM-L i st i ng den 
Or i g i na 1 v ideotre i ber durcharbei ten . 


100 

110 

120 

130 

140 

150 

160 

170 


* * 

* BEISPIEL * 

* * 

* B i 1 dsch i rm auf 30 Ze i 1 en a 50 Ze i chen # 

* * 

* CC) 1985 LUIDGER RÖCKRATH * 

* * 


180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

330 

340 

350 

360 

370 

380 

390 

400 



i 

ORG 

0BC00H 

DISVEC 

EQU 


RST18V 

EQU 

4007H 

VIDRAfi 

EQU 

4400H 

CURSET 

EQU 

305FH 

CURRES 

EQU 

3059H 

COLSET 

EQU 

307AH 

CLS 

EQU 

01C9H 

CPL 

EQU 

50 ; ZEICHEN PRO ZEILE 

LINES 

EQU 

30 ; ZEILENANZAHL 

GESAMT 

EQU 

1500 ; = LI NES*CPL = GESAMTZAHL DER 

; ZEICHEN AUF DEM BILDSCHIRM 

FCERR 

EQU 

1E4AH 

CURSOR 

EQU 

4020H 

LAST 

EQU 

V I DRAM + GES AMT 

FARBE 

EQU 

0F000H 

I N IT 

LD 

A , CPL 


LD 

C 17150), A ; CPL IN CRT-T ABELLE 


LD 

A, LINES 


; CPL IN CRT-T ABELLE 
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410 

LD 

C 171 45) , A i 

420 

LD 

A , 33 

430 

LD 

C 17 1 44 ) , A ; 

440 

LD 

A , 56 

450 

LD 

C 17149) , A ; 

460 

f 


470 

LD 

HL, VIDEO 

480 

LD 

CDISVEC) , HL 

490 

f 


500 

LD 

HL, (RST18V) 

510 

LD 

(RST 1 8C+ 1 > , HL 

520 

LD 

HL , RST 1 8N 

530 

LD 

( RST 18V), HL 

540 

CALL 

CLS 

550 

JP 

1A19H 

_ 560 

> 


570 ABB 

INC 

HL 

580 

PUSH 

HL 

590 

CALL 

ABT 

600 

EX 

DE, HL 

610 

POP 

HL 

620 

RST 

18H 

630 

RET 

NZ 

640 

LD 

DE , -CPL 

650 

ADD 

HL, DE 

660 

RET 


670 ABI 

PUSH 

HL 

680 

PUSH 

DE 

690 

PUSH 

BC 

700 

LD 

HL, (CURSOR) 

710 

PUSH 

HL 

720 

CALL 

ABT 

730 

JP 

30A7H 

740 

» 


750 VIDEO 

LD 

L»(IX+03H> 

760 

LD 

H, ( IX+04H) 

770 

JP 

C , 31 7DH 

780 

LD 

A, ( IX+05H) 

790 

OR 

A 

800 

JR 

N2, ABN 

810 

CALL 

CURRES 

820 

JR 

ABO 

830 ABN 

CALL 

CURSET 

840 ABO 

LD 

A , C 

850 

CP 


860 

JR 

C, ABS 

870 

CALL 

ABV 

880 ABP 

JP 

3108H 

890 

* 


900 

; STEUERZEICHEN ERKENNEN 

910 

• 

V 


920 ABS 

LD 

DE, ABP 

930 

PUSH 

DE 

940 

CP 

8 

950 

JP 

2 , 31DFH 

960 

CP 

0AH 

970 

RET 

C 

980 

CP 

0EH 

990 

JP 

C , ACF 

1000 

JP 

Z, 31 FSH 


LINES IN CRT-TABELLE 
HORIZONTALE JUSTIERUNG 
VERTIKALE JUSTIERUNG 
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1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1 100 
1 1 10 
1 120 
1130 
1 140 
1150 
1 160 
1170 
1180 
1 190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1 460 
1470 
I486 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 


ABT 


ABU 


ABU 

ABU 


ABY 


ABZ 


CP 

0FH 

Jp 

2,31 FDH 

CP 

18H 

RET 

C 

CP 

18H 

JP 

Z, ACL 

CP 

19H 

JP 

Z, ABB 

CP 

IAH 

JP 

2, ACQ 

CP 

1BH 

JP 

Z> ACS 

CP 

ICH 

Jp 

Z , 3 1 D4H 

CP 

1 DH 

JP 

Z, ACH 

CP 

1 EH 

JR 

Z, ACE 

CP 

1 FH 

JR 

RET 

Z , ACB 

i 

; ZEIGER AUF ZEILENENDE 1 

LD 

DE, -UI DRAM 

LD 

B,1 

ADD 

HL, DE 

LD 

DE , CPL 

OR 

A 

SBC 

HL, DE 

JR 

C, ABU 

INC 

B 

JR 

ABU 

LD 

HL , U I DRAM-CPL 

ADD 

HL, DE 

DJNZ 

RET 

ABU 

; ZEICHEN AUF BILDSCHIRM 
* 

• 

CALL 

COLSET 

LD 

(HL) , A 

INC 

HL 

LD 

DE, LAST 

RST 

18H 

RET 

C 

LD 

HL, LAST 

LD 

DE, -CPL 

ADD 

HL, DE 

PUSH 

EXX 

HL 

PUSH 

BC 

PUSH 

DE 

PUSH 

HL 

LD 

DE, FARBE 

LD 

HL , FARBE+CPL 

LD 

BC , GESAMT-CPL 

PUSH 

EXX 

BC 

LD 

DE, UI DRAM 
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1610 

LD 

HL, VIDRAM+CPL 

1620 

POP 

BC 

1630 ACA 

LD I 


1640 

EXX 


1650 

LDI 


1660 

EXX 


1670 

LD 

A , B 

1680 

OR 

C 

1690 , 

JR 

NZ, ACA 

1700 

EXX 


1710 

POP 

HL 

1720 

POP 

DE 

1730 

POP 

BC 

1740 

EXX 


1750 

POP 

HL 

1760 ACB 

LD 

DE, LAST ' * - 

1770 ACC 

JP 

31 ACH 

1780 

t 


1790 

; 1EH 


1800 

* 


1810 ACE 

PUSH 

HL 

1820 

CALL 

ABT 

1830 

JP 

31C3H 

1840 

• 

t 


1850 

; CR 


1860 

• 

> 


1870 ACF 

CALL 

360 AH 

1880 

CALL 

ABT 

1890 

ADD 

HL, DE 

1900 

LD 

DE, LAST 

1910 

RST 

18H 

1920 

JR 

Z, ABZ 

1930 

RET 


1940 

) 


1950 

; CURSOR ZUM ZEILENANFANG 

I960 

f 


1970 ACH 

CALL 

ABT 

1980 ACI 

JP 

CURSET 

1990 ACL 

PUSH 

HL 

2000 

CALL 

ABT 

2010 

EX 

DE, HL 

2020 

POP 

HL 

2030 

RST 

18H 

2040 

JR 

2, ACM 

2050 

DEC 

HL 

2060 

JP 

CURSET 

2070 ACM 

DEC 

HL 

2080 

LD 

DE , CPL 

2090 

ADD 

HL, DE 

2100 

JP 

CURSET 

2110 

* 


2120 

; CURSOR DOUN 

2130 

* 


2140 ACÖ 

LD 

DE, CPL 

2150 

CALL 

360AH 

2160 

ADD 

HL, DE 

2170 

OR 

A 

2180 

CCF 


2190 

LD 

DE , LAST 

2200 

RST 

18H 


1.1.3 B l 1 dsch i rmausgabe : Der Videocontrol 1er 


Seite 33 


2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 


JR 

LD 

ADD 

ACR JP 

* 

* 

; CURSOR 
* 

ACS LD 

CALL 
ADD 
LD 
RST 
JR 
LD 
ADD 

ACT JP 

RST18N EX 

LD 
CP 
LD 
EX 
JR 
CP 
JR 
LD 

RST18C JP 
+ 

END 


C > ACR 

DE , -GESAMT +CPL 

HL »DE 

CURSET 

UP 

DE , -CPL 
360AH 
HL, DE 
DE, VI DRAU 
18H 

NC, ACT 
DE , GESAUT 
HL »DE 
CURSET 

<SP> , HL 
A,L 

0D8H ; 

A , H 

< SP> , HL 
N2 » RST18C 
30 H 

NZ » RST 1 8C 
HL , GESAUT- 1 
RST18C 


AUFRUF VON 30D8H 


INIT 
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Kapitel 2 : Die Programm ierung der Tonausgabe 


I 

J 

Der PSG < Programmabl e Sound Generator) im Colour-Genie 

b i etet vielfälti ge Ilög 1 i chke i ten der Tonerzeugung mit l 

geringem Aufwand. Er hat drei Kanäle, die völlig unabhängig 

voneinander in Tonhöhe, Lautstärke, Hüllkurve, Rauschen, 1 

. . . programmiert werden können. Außerdem bietet er 4 

paral leie Ein-/ Ausgabeports . 

f Die vielen Möglichkeiten des PSG werden über 16 Register ^ 

programmiert. Für diese 16 Register werden aber nur 2 
Portadressen belegt. Daher muß zum Schreiben oder Lesen ^ 

ei nes Reg i sters zunächst dessen Nummer in Port E8H C =248 ) 
geschrieben werden, wonach der Uert in Port E9H (=249) 
geschrieben bzw. gelesen werden kann. 

Die 16 Register des PSG haben folgende Funktion: 

Reg 0 Bit 0-7 : Kanal A Schw i ngungsdauer Feine i nste 1 1 ung 

Reg 1 Bit 0-3 : Kanal A Schwingungsdauer Grobeinstellung 

Reg 2 Bit 0-7 : Kanal B Schwingungsdauer Feineinstellung 

; Reg 3 Bit 0-3 : Kanal B Schwingungsdauer Grobeinstellung 

l Reg 4 Bit 0-7 : Kanal C Schw i ngungsdauer Feineinstellung 

f Reg S Bit 0—3 : Kanal C Schwingungsdauer Grobeinstellung 

f Reg 6 Bit 0-4 : Rauschperiode 

S Reg 7 Bit 0 : = 0 Tonausgabe Kanal A ein 

’ = 1 Tonausgabe Kanal A aus 

j , Bit 1 : = 0 Tonausgabe Kanal B ein 

= 1 Tonausgabe Kanal B aus 
Bit 2 : = 0 Tonausgabe Kanal C ein 

= 1 Tonausgabe Kanal C aus 
Bit 3 : = 0 Rauschen Kanal A ein 

= 1 Rauschen Kanal A aus 

B i t 4 : = 0 Rauschen Kanal B ein 

= 1 Rauschen Kanal B aus 
I Bit 5 : = 0 Rauschen Kanal C ein 

= 1 Rauschen Kanal C aus 

Bit 6 : =0 I/O Port A Eingabe 

=11 /0 Port A Ausgabe 
Bit 7 : = 0 I/O Port B Eingabe 

=1 I/O Port B Ausgabe 
Reg 8 Bit 0-3 : Lautstärke Kanal A 

Bit 4 : = 0 Hüllkurve Kanal A aus 

= 1 Hüllkurve Kanal A ein , 

Reg 9 Bit 0-3 : Lautstärke Kanal B ) 

Bit 4 : = 0 Hüllkurve Kanal B aus 

= 1 Hüllkurve Kanal B ein j 

Reg 10 Bit 0-3 : Lautstärke Kana 1 C 

Bit 4 : = 0 Hüllkurve Kanal C aus 

= 1 Hüllkurve Kanal C ein 

Reg 11 Bit 0-7 : Periode der Hüllkurve Feineinstellung 

Reg 12 Bit 0-7 : Per i ode der Hüllkurve Grobe instel lung 

Reg 13 Bit 0 : HOLD 

= 0 : Lautstärke am Ende auf 0 
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= 1 : Lautstärke nach einer Periode halten 

Bit 1 : ALT 

= 0 : Sprung von 15 auf 0 oder umgekehrt 
= 1 : keine Sprünge 

Bit 2 : ATT 

= 0 : mit Lautstärke 15 beginnen 
= 1 : mit Lautstärke 0 beg i nnen 

Bit 3 : CONT 

= 0 : nur eine Periode 

= 1 : beliebig lange fortsetzen 

Reg 14 Bit 0-7 : 1/0-Port A Daten 
Reg 15 Bit 0-7 : I/O-Port B Daten 

Be i sp i e 1 e : 

Tonhöhe : 

Die Tonhöhe muß durch einen Teilungsfaktor angegeben 
werden. Dieser gibt an wie der Haupttakt geteilt werden 
soll. Dieser Faktor ist 12 Bit lang. Die niederwertigen 8 
Bit müssen i n Reg 0 , 2 oder 4 < Kanal A , B oder C ) und die 
höherwertigen 4 Bit in Reg 1, 3 oder 5 geschrieben werden. 

Im Colour-Genie ROM ist eine Tabelle für alle 12 Töne der 
tiefsten Oktave CI) jewe ils in der unsauberen EACA— St i mmung 
und in ei ner besseren NCU— St i mmung entha 1 ten : 

C D E F G A H CIS DIS FIS GIS B 

EACA: D5B BE7 ASB A02 8EB 7F2 714 C9C B3C 973 86B 780 

NCU: 1090 EC0 D24 C68 B0C 9D8 8C8 FA0 DEB BB4 A70 948 

Die Tabellen beginnen im ROM bei 3DD1H bzw . 3DF1H. Die 12 

Bit 1 angen Schwi ngungsdauern sind in zwei Byte - zunächst 
die Grobeinstellung und folgend die Feineinstellung - 
abge 1 egt . 

So wird ein D der Oktave 1 auf Kanal A programmiert. 


LD 

A , 0 

* 

- 1 

Reg 0 anwählen. 


OUT 

C0E8H) , A 




LD 

A , 0C0H 

i 

Feineinstei lung 

A 

OUT 

C0E9H) , A 

t 

Programm i eren 


LD 

A,1 

t 

Reg 1 anwählen 


OUT 

C0E8H) , A 




LD 

A , 0EH 

f 

Grobe i nste 1 1 ung 

A 

OUT 

C0E9H ) , A 

t 

Programm i eren 

- 


Soll das D nicht in der Oktave 1 sondern eine Oktave höher 
erklingen, muß statt des Teilungsfaktors 0EC0H der Faktor 
760H programmiert werden . Eine Halbierung des 
Tei 1 ungsf aktors bewirkt eine Verdopplung der Frequenz. 

Lautstärke : 

Um das Rauschen abzuschalten und die Lautstärke auf 15 zu 
stellen, muß noch folgende Sequenz programmiert werden und 
der Ton erklingt: 
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LD 

A,7 

; Reg 7 anwählen 

OUT 

C0E8H) , A 


LD 

A , 38H 

; = 001U000B 

LD 

C0E9H) , A 

; Rauschen aus , Ton 

LD 

A ,8 

; Reg 8 anwäh 1 en 

OUT 

C0E8H ) , A 


LD 

A , 15 

; Lautstärke Kanal A 

OUT 

C0E9H) , A 

; = 15 


Zur Programmierung des PSG können lei der nur uen i ge 
ROM-Rout i nen verwendet werden. Die Routine zum PLAY-Befehl 
kann nicht verwendet werden, da Auswertung der Parameter 
aus dem Basictext und Verarbeitung zu eng verwoben sind* 

*********************************************************** 


* * 

* SOU HD : Uert auf PSG-Reg i ster ausgeben * 

* * 

* E : 3E32H * 

* R : A=E * 

* I : A = Registernummer * 

* E = Uert $ 

* * 


*********************************************************** 
Funkt i on : 

entspricht BASIC: SOUND A , E 

Be i sp i e 1 : 


LD A , 8 ; Kanal A Lautstärke 

LD E, 15 ; = 15 

CALL SOUND ; SOUND 8,15 


*********************************************************** 
* * 

* SNDDE : Uert auf 2 PSG-Register ausgeben * 

* * 

* E : 3E2AH * 

* R : A=E * 

* I : A = Reg i sternummer # 

* DE = Uert * 

* * 
*********************************************************** 

Funktion : 

entspricht BASIC: SOUND A,D:SOUND A-l,£ 

Be i sp i e 1 : 

LD DE „ 0EC0H ; Schwingungsdauer D 

LD A , 1 ; Kana 1 A 

CALL SNDDE 
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Folgendes Beispielprogramm gibt eine Tonleiter über alle 
Oktaven mit vol 1er Lautstärke aus . Dazu ui rd aus der 
Tabelle der Schu i ngungsdauern der Uert, für den jeweiligen 
Ton entnommen, und für jede Oktave durch 2 dividiert, und 
der sich so ergebende Uert in den PSG programmiert . 


100 

;***********************************$********* 

110 

; * 



* 

120 

;* BEISPIEL 


* 

130 

• * 
* ^ 



* 

140 

;* TONLEITER 

UEBER ALLE 

OKTAUEN AUSGEBEN * 

150 

; * 



* 

160 

;* <C> 

1985 LUIDGER RÖCKRATH * 

170 

; * 



* 

180 

;********************************************* 

190 

> 




200 

SOUND 

EQU 

3E32H 

; SOUND A,E 

210 

SNDDE 

EQU 

3E2AH 

; SOUND A , D : SOUND A-l ,E 

220 

FGR 

EQU 

38A9H 


230 

CDUR 

EQU 

3DEFH 

; TABELLE C-DUR TONLEITER 

240 

DELAY 

EQU 

0060H 

; UARTESCHLE I FE 

250 

t 




260 

; PR0GRAM1START 


270 

t 




280 

START 

LD 

E , 38H 

; KEIN RAUSCHEN 

290 


LD 

A,7 

; AUF KANAL A-C 

300 


CALL 

SOUND 


310 


LD 

E, 15 

; LAUTSTAERKE 0 = 15 

320 


LD 

A , 8 


330 


CALL 

SOUND 


340 


LD 

B,1 

; OKTAUE = 1 

350 

OKTAUE 

LD 

HL , CDUR+2 ; ZEIGER AUF C 

360 


LD 

C, 1 

; C=TONNR . 

376 

TON 

LD 

E, (HL) 

; SCHU.D. LADEN 

380 


INC 

HL 


390 


LD 

D, (HL j 


400 


INC 

HL 


410 


RLC 

E 

; DE * 2 

428 


RL 

D 


430 


PUSH 

BC 

; OKTAUE RETTEN 

440 

DIU 

SRL 

o 

; DE / 2» PRO OKTAUE ' 

450 


RR 

E 


460 


DJNZ 

DIU 


470 


LD 

BC, 40000 ; UARTEN 

480 


CALL 

DELAY 


490 


LD 

A,1 

; TON AUF KANAL A 

500 


CALL 

SNDDE 

3 

510 


POP 

BC 

; OKTAUE ZURUECK 

520 


INC 

C 

; 7 TOENE 

530 


LD 

A , C 


540 


CP 

8 


550 


JR 

NZ , TON 

; NEIN — > NAECHSTER TON 

560 


INC 

B 

; 8 OKTAUEN 

570 


LD 

A , B 


580 


CP 

9 


590 


JR 

NZ »OKTAUE ; NEIN — > NAECHSTER TON 

600 


RET 



610 


END 

START 
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2.1 Die Programmierung der Para 1 1 el sehn i ttste 1 1 e 


Eine Para 1 1 el sehn i ttste 1 1 e ist im PSG eingebaut. Sie 
besteht aus 2 Port mit je 8 Bits. Jeder Port kann zur 
Eingabe oder Ausgabe benutzt uerden. Dies uird mit den Bits 
6 und 7 im Register 7 festgelegt. 

Die Ports selbst uerden über die Register 14 und 15 gesetzt 
bzu * gel esen . 

Beispiel : 


LD 

A > 7 

; Reg 7 anuählen 

OUT 

< 0E8H ) , A 


LD 

A , 40H 

; Port A Ausgabe 

OUT 

C0E9H) , A 

; Port B Eingabe 

LD 

A, 14 

; Port A anuählen 

OUT 

C0E8H ) , A 


LD 

A , 0FFH 

; Alle Bits setzen 

OUT 

< 0E9H ) , A 


LD 

A, 15 

; Port B anuäh len 

OUT 

C0E8H) , A 


IN 

A , C0E9H ) 

; Port B abfragen 


Die Centron i cs-Para 1 1 e 1 sehn i ttste 1 1 e für den Drucker uird 
über die Ports A und B des PSG bedient . 


Port A Bit 0-7 
Port B Bit 0 
Port B Bit 7 
Bit 6 
Bit 5 
Bit 4 


Ausgabe des Zeichens 
Ausgabe des Strobe 
Abfrage Busy 

Out of Paper 
Unit Select 
Ready 


-cv v 


Der Strobe uird durch ein Monoflop auf dem Durcker Interface 
ver 1 ängert . Für etua die 10 fache 2e i tdauer uird 
automatisch ein Busy generiert, auch uenn der Drucker dies 
nicht anzeigt. 


J 


I 
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Kapi te 1 3 : Der Betrieb mit- der Diskettenstation 


1.3.1 All gemeines 


Für den Zugriff auf Diskettenfiles stellt das DOS im ROH 
eine ganze Anzahl leistungsfähiger Unterprogramme zur 
Verfügung, die größtenteils den entsprechenden 

Unterprogrammen im TRSDOS, NEUDOS und GDOS entsprechen. 
Lediglich die Einsprungadressen unterscheiden sich. Uährend 
bei den genannten Betriebssystemen alle Einsprünge in der 
Page von 4400H-44FFH liegen, sind sie beim Colour-Genie in 
die Page CE00H-CEFFH verlegt. Die LSB ' s der Adressen 
stimmen aber überein. Dem CALL 4428H unter GDOS, 
entspricht also der CALL 0CE28H auf dem Co 1 our-Gen i e . Beide 
Unterprogrammauf ruf e bewirken das Schließen eines FCB's. 

Der File Control Block 


Der File Control Block CFCB) enthält alle Informationen 
Uber ein geöffnetes File, die das DOS zum Zugriff benötigt. 
Dieser 32 Byte lange Speicherbereich bildet die Verbindung 
zwischen dem Programm und dem DOS. Beim Eröffnen eines 
Files mittels INIT oder OPEN müssen die ersten Bytes den 
mit CR abgeschlossenen Filenamen enthalten. Diese Routinen 
f ül len den FCB dann mit Daten von der Diskette , wodurch das 
File dann mit den anderen Unterprogrammen bearbeitet werden 
kann. Durch die CLOSE-Rout i ne wird der Filename wieder in 
den FCB eingeschrieben. 

Ein FCB zu einem geöffneten File ist folgendermaßen 

auf gebaut : 

FCB : Bit 7=1: File ist eröffnet . , . * . , ^ 

=0 : File ist geschlossen 
Bit 1=1: NEXT und EOF werden Disk-relativ 

i nterpret i ert 

Bit 0=1: Sektoren werden lesegeschützt 

geschrieben. Fehler 6 beim Lesen! 

FCB + 3 : LSB der Buf f eradresse , die beim OPEN in HL stand 
FCB + 4 : MSB 

FCB + 5 : NEXT BYTE, Nr. des Bytes im Sektor CFCB + 10,11), 

welches zunächst verarbeitet wird. 

FCB + 6 : Lauf werksnummer 

FCB + 8 : EOF BYTE, Nr. des EOF-Byte im Sektor CFCB +12,13) 
FCB + 10: LSB NEXT, des Sektor der zunächst gelesen 
oder geschrieben wird. 

FCB + 11: MSB NEXT 

FCB + 12: LSB EOF, LSB des letzten Filesektors 
FCB + 13: MSB EOF 
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Besonders wichtig im FCB sind die NEXT und EOF-Felder, die 
jeue ils 3 Byte be 1 egen . Das 2 . und 3. Byte (USB + LSB > 
geben die Sektornummer an. Das 1. Byte gibt die Nummer des 
Bytes i m Sektor an . Beim Sektorzugr iff ist die Nummer des 
Bytes unerhebl ich . 

Die weiteren Bytes des FCB werden mit Daten aus dem 
Direktory— Entry des Files gefüllt und sind hier nicht von 
besonderem I nteresse . Genauere Informati onen dazu können 
dem NEUDOS80 V2.0 Handbuch entnommen werden. 

Beim Eugriff auf ein File mit den beschr i ebenen 
Unterprogrammen muß man sich um den Aufbau des FCB nicht 
kümmern. Beim Eröffnen eines Files mittels OPEN oder INIT 
wird er automatisch e i nger i chtet . 

Für viele DOS-Unterprogramme gelten ähnliche Parameter. In 
DE w i rd die Adresse des FCB übergeben , der , wenn nichts 
anderes angegeben i st > eröffnet sein muß . Be i der Rückkehr 
ze i gt das gesetzte Zero- F 1 ag erfolgreiche Bearbeitung des 
Unterprogrammes an. Andernfalls ist im Akku die 
Fehlernummer, deren Bedeutung im DOS-Handbuch nachgelesen 
werden kann. 
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1.3.2 Eröffnen von Files 


* * 

* INIT : evtl, nicht existierendes File eröffnen * 


CE20H 

AF 

DE = Ze i ger auf F i 1 enamen 
CDE) = 1. Zeichen des Filenamen 
CDE+n) = 0DH 

B = logische Recordlänge 
HL = Buff er ad resse 
Z = 0 : kein Fehler 

Z = 1 : Fehler 

A : Fehlernummer 


* t 

Funktion : 

DE weist auf einen Filenamen, der nach den Richtlinien für 
Filenamen auf gebaut sein muß. Er kann also nach einem 
Schrägstrich eine Erweiterung, nach einem Doppelpunkt eine 
Lauf wer ksbeze ichnung oder nach e i nem Punkt ein Passuord 
enthalten. Existiert ein File mit dem angegebenen Namen, so 
wird es eröffnet. Anderfalls wird ein File neu 

ei nger i chtet . 

Be i spiel : 



LD 

DE, FCB 

FCB-Adresse nach DE 


LD 

HL, BUFFER 

Buff er adr esse nach HL 


LD 

B , 0 

Log i sehe Sektor länge 


CALL 

INIT 

Neues File erzeugen 


JR 

NZ, . . . 

Fehler, — > 

FCB 

DEF11 

* TEST/TXT : 1 ’ 

• 


DEFB 

0DH 



DEFS 

32 - $ + FCB ; 

; 32 Bytes für FCB ! 

BUFFER 

DEFS 

256 ; 

; 256 für Buffer 


auch wenn B < > 0 
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***************************************************** ****** 
* * 

* OPEH : existierendes File eröffnen * 

* * 


* E : CE24H 

* R : AF 

* I : DE = Ze 

* C DE > = 

* CDE + n ) 

* 8 = log 

* HL = Bu 

* 0 : Z = 0 : 

* 2 = 1 : 
* 

* 

****************** 


iger auf Filenamen * 

1. Zeichen des Filenamen * 

= 0DH * 

i sehe Record länge * 

fferadresse * 

kein Fehler * 

Fehler * 

A : Fehlernummer * 

* 

************* * * ************************** 


Funkt i on : 


Uie OPEN. Existiert das File aber noch nicht, uird mit 
Fehler abgebrochen. 

Beispiel : 


siehe INIT 


T 
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1.3.3 Schreiben und Lesen von Files 


By teue i ses Schrei ben : 


* RDBYTE : Byte von File lesen 

* 

* E : 0013H 

* R : AF 

* I : DE = Ze i ger auf eröff neben FCB 

* 0:2=0: kein Fehler 

* A : gelesenes Bybe 

* 2=1: Fehler 

* A : Fehlernummer 


*********************************************************** 

Funkbion: 

Das nächste Bybe des F l 1 es ui rd ge 1 esen > uobei be i Bedarf 
ein Sekbor in den Buffer nachgeladen uird. Der Einsprung 
für diese Routine liegt in der Page 0! über RAM-Uekboren 
uird zur ausführenden Routine im DOS verzue i gb . 


Be i spie 1 : 


LOOP 


ERROR 


LD 

CALL 

JR 

PUSH 

CALL 

POP 

JR 

CP 

RET 


DE, FCB 
RDBYTE 
N2, ERROR 
DE 

OUTCH 

DE 

LOOP 

28 

Z 


; Ze i ger auf geöffneten FCB 
; 1 Bybe 1 esen 

; Fehler ? — > 

; 2e i chen ausgeben 

; weiter 

; Ende der Dabei ? 

; ja, fertig 


; Fehl erbearbeibung 


*********************************************************** 

* * * 

* URBYTE : Byte auf File schreiben * 

* ‘ * 

* E : 001 BH * * 

* R : AF * 

* I : DE = Ze i ger auf eröffneben FCB * 

* A = zu schreibendes Bybe ♦ 

* 0 : Z = 0 : kein Fehler * 

* Z = 1 : Fehler * 

* A : Fehlernummer * 

* * 
*********************************************************** 


Funkt i on : 


Das Byte im Akku uird auf das File geschrieben, uobei falls 
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r 

j 

; 


E 


]■ 


erf order 1 i ch ein Sektor auf Diskette geschrieben wird. 


Beispiel : 


LD 

DE, FCB 

DE zeigt auf eröffn. FCB 

LOOP LD 

A, CHL) 

Zeichen laden 

AND 

A 

Ende ? 

JR 

Z > • • ^ 

ja , — > 

CALL 

URBYTE 

Byte schreiben 

JR 

NZ , . * . 

Fehler, — > 

INC 

JR 

HL 

LOOP 

; weiter 

Sektoren schreiben und lesen: 

************************************************* ********** 


E 

R 

I 


COPEN) 


* RDSEC 

* 

* 

* 

* 

* 

* 

* 

* 

* 

4c 
* 

* 

* 

* 

* * 
*********************************************************** 


Sektor von File lesen 

CE36H 

AF 

DE — Zeiger auf eröffneten FCB 
B <> 0 beim Eröffnen per OPEN: 

HL = Zeiger auf Buffer der Länge B 
B <> 0 beim Eröffnen per OPEN: 

(HL> . . . CHL+B-1 ) : gelesener Record 

Andernf a 1 1 s : 

gelesener Sektor im Sektorbuffer 
(HL bei OPEN) 

Z = 0 : kein Fehler 

Z = 1 : Fehler 

A : Fehlernummer 


Funkt i on : 

Beim Lesen von Sektoren muß zwischen Files mit logischen 
Sektor längen von 256 und anderen unterschieden werden . 
Uurde ein File mit einem Uert von B <> 0 eröffnet, dann muß 
be im Aufruf von RDSEC in HL die Adresse e i nes Buffer 
entsprechender Lange übergeben werden , in den durch dieses 
Unter programm die nächsten B Bytes des Files übertragen 
werden . Uird dadurch eine phy s . Sektor grenze über sehr i tten , 
wird von Diskette der nächste physikalische Sektor in den 
Sektorbuffer <HL beim öffnen des Files per OPEN) geladen. 
Uurde aber das File mit der Sektorlänge 256 eröffnet, dann 
muß beim Aufruf von RDSEC nichts in HL übergeben werden, 
und es uird nur der nächste Sektor von der Diskette in den 
Sektorbuf f er geladen. 

Ilit der RDSEC-Rout i ne ist auch das Lesen von Disk-relativ 
adressierten Sektoren möglich* Dazu muß das Bit 1 von CFCB) 
gesetzt sein. In diesem Fall werden die NEXT und EQF-Felder 
des FCB nicht File-relativ sondern Disk-relativ 
i nterprstiert . 

Uird der FCB mit B=0 eröffnet, ist für die weiteren 
Zugriffe CFCB+5) unwichtig. CFCB+10) und CFCB+11) geben 
jeweils die Nummer des nächsten Sektors an. 


r & # * S. M 


1.3.3 Di sketienbeir ieb : Schreiben und Lesen 


Seite 45 


Be i spiel 


FCB 


LD 

DE, FCB 

LD 

HL, BUFFER 

LD 

B, 128 

CALL 

OPEN 

JR 

NZ, FEHLER 

LD 

HL, RECBUF 

CALL 

RDSEC 

JR 

NZ, FEHLER 

* * t 

DEFH 

* TEST/TXT 

DEFB 

0DH 

ORG 

FCB +32 

DEFS 

256 

DEFS 

128 


; File eröffnen 
; logische Record länge= 128 
; Fehler» — > 

; logischen Record -> (HL) 

; Feh 1 er , — > 


BUFFER 

RECBUF 


; Sektorbuf f er für OPEN 
; Buffer für log. Record 
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$********************************************************** 
* * 

* URSEC : Sektor von File lesen 4t 


* 

* 

* 

4t 

* 

* 

* 

* 

* 

4t 

* 

4t 

4t 

* 


E : CE39H * 

R : AF * 

I : DE = Zeiger auf eröf f neten FCB * 

B < > 0 beim Eröffnen per OPEH: * 

HL * 2ei ger auf Buffer der Länge B (OPEN) * 
(HL) . . . (HL+B-1 ) : zu schreibender Record * 

Andernf al 1 s : * 

zu schreibender Sektor im Sektorbuffer 4t 

(HL bei OPEN) 4t 

0:2=0: kein Fehler * 

2=1: Fehler * * 

A : Feh 1 ernummer * 

* 


**********************************************************4: 


Funkt i on : 

Beim Schreiben von Sektoren muß genau wie beim Lesen 
zu i sehen Sektoroperat i onen und 1 og i sehen Recordoper at i onen 
unterschieden werden. Ist B beim öffnen des Files mit OPEN 
0, wird der Inhalt des Buffer , dessen Adresse be i m OPEN in 
HL angegeben wird, auf das File geschrieben (256 Bytes). 
Andernfal ls werden die B Bytes , die in dem Spe i cherbere ich, 
auf den HL be im Aufruf von URSEC weist , i n den Sektorbuf f er 
übertragen , und - falls erforderlich - dieser auf das File 
geschr i eben . 

Ist das Bit 0 von (FCB) gesetzt , wird der Sektor 
1 esegeschützt geschr i eben . Derart i g geschr i ebene Sektoren 
ergeben beim Lesen einen Fehler 6. Das DOS schreibt den 
Di rektory 1 esegeschützt . 

Ui e be i RDSEC ist auch h i er Disk-rel at i ves Schreiben 
mög 1 i ch . - ■ . 


Bei sp i el : 



LD 

DE, FCB 

* 

t 

File eröffnen 


LD 

HL, BUFFER 




LD 

B , 0 

I 

Sektoroperat i on 


CALL 

OPEN 




JR 

NZ, FEHLER 

I 

Fehler ? — > 


LD 

HL, DATEN 

* 

Sektorbuffer f ül len 


LD 

DE, BUFFER 




LD 

BC , 256 




LDIR 





LD 

DE, FCB 

* 

Sektorbuf f er schreiben 


CALL 

URSEC 




JR 

NZ , FEHLER 

* 

Fehler, — > 

FCB 

■* *■ * 
DEFH 

* TEST/TXT : 0 * 




DEFB 

0DH 




ORG 

FCB+32 



BUFFER 

DEFS 

256 

* 

Sektorbuf f er für OPEN 

DATEN 

DEFS 

256 

* 

t 

Spe i cherbere ich in dem 




* 

t 

Daten stehen 
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1.3.4 Positionierung des NEXT 


Hit den folgenden Routinen kann das NEXT-Feld im FCB 
geändert uerden und damit auf einen speziellen Sektor im 

File zugegriffen werden, ohne das File vom Beginn an 

sequentiel 1 lesen . 

44444444444444444444444444444444444444444444444444444444444 
* * 

* POS0 : NEXT-Feld auf Sektor 0 positionieren ♦ 

* * 

* E : CE3FH * 

* R : AF * 

* I : DE - Seiger auf eröffneten FCB * 

* 0 : Z = 0 : kein Fehler * 

* Z = 1 : Fehler - ♦ 

* A : Fehlernummer ♦ 

4 4 

„ , ■, ~ 44444444444444444444444444444444444444444444444444444444444 

Funktion : 

Das NEXT-Feld im FCB wird auf den Fileanfang gesetzt. Ist 
im Buffer ein Sektor, der noch auf die Diskette geschrieben 
werden muß, wird dieser zunächst auf die Diskette 
geschr i eben . 

Beispiel : 


LD DE, FCB 

CALL POS0 

CALL RDSEC 


Zeiger auf geöffneten FCB 
FCB auf Sektor 0 pos. 
Sektor 0 laden 


E 

R 

I 


* POSBC 

* 

* 

* 

* 

* 

* 

4 
4 
4 


NEXT-Feld im FCB auf BC positionieren 


* ■* 


44444444444444444444444444444444444444444444444444444444444 
4 4 

4c 
* 

* 
* 
4t 
4; 
4 : 
4c 
4 
4 

44444444444444444444444444444444444444444444444444444444444 


CE42H 
AF 

DE » Zeiger auf eröffneten FCB 
BC - logische Recordnummer 
0:2-0: kein Fehler 
2 - 1 : Fehler 

A : Fehlernummer 


Funkt i on : 


Das NEXT-Feld im FCB wird gleich BC 4 logische Recordlänge 
gesetzt. Hit dem nächsten Filezugriff wird also der 
logische Record BC angesprochen. Ansonsten gleiche Funktion 
wie POS0. 


r 
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Beispiel : 


LD 

DE, FCB 

; Zeiger 

auf geöffneten FCB 

LD 

BC, 17 

; Recordnummer = 17 

CALL 

POS0 

; FCB auf 

Record 17 pos. 

LD 

HL , LOGBUF 

; Zeiger 

auf log. RecBuffer 

CALL 

RDSEC 

; Record 

17 laden 


* 

* POSDEC : NEXT— Feld um einen Record decrementieren 

* E : CE45H 

* R : AF 

* I : DE = Zeiger auf eröffneten FCB 

* 0:2=0: kein Fehler 

* 2=1: Feh 1 er 

* A : Fehlernummer 


Funktion : 

Das NEXT-Feld im FCB wird um die logische Recordlänge 
erniedrigt. Ansonsten gleiche Funktion uie POS0 . 

Beispiel : 

LD 
LD 

CALL 
CALL 
‘ CALL 


Zeiger auf geöffneten FCB 
Record -Buf f er 
log. Record lesen 
FCB auf einen Record zur . 
gleichen Record noch mal 


* 

* POSEOF : NEXT-Feld auf EOF positionieren 

* E : CE48H 

* R : AF 

* I : DE = Zeiger auf eröffneten FCB 

* 0:2=0: kein Fehler 

* Z = 1 : Fehler 

* A : Fehlernummer 


Funktion : 

Das NEXT-Feld im FCB uird auf das Fileende gesetzt. 
Ansonsten siehe POS0 . 

Beispiel : 


LD 

CALL 

CALL 


DE , FCB 

POS0 

URSEC 


; Zeiger auf geöffneten FCB 
; FCB auf EOF pos. 

; File erweitern 
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*********************************************************** 

* * 


* POSRBA 


NEXT-Feld auf HLC positionieren 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

****** 


E : CE4EH * 

R : AF * 

I : DE - Zeiger auf eröf f neten FCB * 

HL = HEXT CH = NSB , L = LSB) * 

C = NEXT Byte * 

0 : Z = 0 : kein Fehler * 

Z = 1 : Fehler * 

A : Fehlernummer ♦ 

***************************************************** 


Funkt i on : 


Das NEXT-Feld im FCB wird auf HL und C gesetzt. HL gibt die 
Sektornummer an und C die Position im Record. Funktion 
sonst wie POS0 . 


Be i spiel : 


LD 

DE, FCB 

LD 

HL, 28 

LD 

C , 80H 

CALL 

POS0 

LD 

HL , SECBUF 

CALL 

RDSEC 


Zeiger auf geöffneten FCB 
Sektornummer = 28 
Byte = 128 

FCB auf Sektor 0 pos . 
logischen Record lesen 






I 
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l 


1.3.5 File Laden , Starten , Löschen 


*********************************************************** 


t 


* LOAD 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


E 

R 

1 


0 


File im Loaderformat laden 

CE30H 

AF 

DE = Zeiger auf Filenamen 

(DE) = 1. Zeichen des Filenamen 

(DE+n) = 0DH 

Z = 0 : kein Fehler 

Z = 1 : Fehler ^ _ 

A : Fehlernummer 


* 


*********************************************************** 


Funkt i on : 


Ein File im Loaderformat wird geladen. Die 

Speicheradressen, an die es geladen wird, sind im 
Loaderformat entha 1 ten , das folgendermaßen auf gebaut ist: 

1. Datenblock: 

a. Kennung = 01H 

b. Anzahl der Datenbytes +2(0-2= 256 - 258) 

c . Lade ad resse C LSB/HSB ) 

d. Datenbytes 

2 . Startadressenb 1 ock : 

^ n. v ' ' > ^ ^ _ I „ * r , V 1, ( n, " *: - l ^ 11 ^ v 

a . Kennung = 02H 

b. Anzahl der folgenden Byte (immer 02H) 

c. Startadresse (LSB/HSB) 


3. Kommentarb 1 ock 


a . Kennung = 0 oder 03H-FFH 

b. Anzahl der folgenden Kommentarbytes (0 = 256) 

c . Kommentarbytes 

Beispiel : 


CHD”U DEtlO»0>300>0” 


1 . Datenblock: 01 

00 

00 

00 

F3 

AF . . 

(250 

Bytes) . . 14 

44 

2. Datenbl ock : 0 1 

31 

FE 

00 

DF 

DA . . 

( 43 

Bytes) . . 69 

63 

Startadrb 1 ock : 02 

02 

00 

00 







Beispiel : 


LD DE , FCB 

CALL LOAD 


Ze iger auf Fil ename 
File 1 aden 


FCB 


DEFS 


'DEMO' 
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Funktion: 

Ein File im Loaderf ormat wird geladen und gestartet. , „ . 
Beispiel : 


FCB 


LD DE, FCB 

CALL RUN 

* * * 

DEFH 'C0LASH/CI1D' 

DEFB 13 


; Seiger auf Filenamen 
; File laden und starten 


********************************************************* 


* KILL 

* 


File 1 öschen 

CE2CH 

AF 

DE = Seiger auf Filenamen 
CDE) - 1. Seichen des Filenamen 
CDE+n) = 0DH 
S = 0 : kein Fehler 
2=1: Fehler 

A : Fehlernummer 


Funktion : 

Das File, dessen Namen im FCB steht, wird gelöscht. 
Beispiel: 


FCB 


LD 

DE, FCB 

; Zeiger auf Filenamen 

CALL 

KILL 

; File löschen 

JP 

NS, FEHLER 

; Fehler ? --> 

* * * 
DEFÜ 

, TEST ' 


DEFB 

13 
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3.6 File schließen 



CLOSE 


File 1 öschen 

CE28H 

AF 

DE - Zeiger auf eröff neten FCB 
Z = 0 : kein Fehler 

Z - 1 : Fehler 

A : Fehlernummer 

CDE> - 1. Zeichen des Filenamen 
< DE + n ) = 0DH 


. * * * * * t 


*********************************************************** 
Funktion : 

Das dem geöffneten FCB zugehörige File» wird gesch 1 ossen . 
Dazu wird evtl. der letzte Sektor auf Diskette und ein 
neuer EOF auf Diskette geschrieben und nicht mehr benutzte 
Grans werden wieder frei gegeben . Sch ließlich wird der 
Filename wieder in der FCB geschrieben. 

Beispiel : 


LD 

CALL 


DE , FCB 
KILL 


; Zeiger auf geöffneten FCB 
; File schließen 


* r *■ ^ . i, Jf 
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1.3.7 Beispiele zum Diskettenbetrieb 


Das erste 
bei iebigen 
abgefragt > 
und auf den 


Bei spi e 1 programm ermögl icht 
Files auf den Bildschirm, 
das File eröffnet und dann 
Bi ldschirm ausgegeben . 


die Ausgabe eines 
Der Filename wird 
zeichenweise gelesen 


100 


1 10 

; * 



* 

120 

;* BEISPIEL 


* 

130 

* * 
$ * 



* 

140 

;* LESEN EINES 

FILES 

« 

150 

; * 



* 

160 

; * CC) 

1985 LUIDGER RÖCKRATH * 

170 

; * 



* 

180 

;*************#******************************* 

190 

1 




200 

OPEN 

EQU 

0CE24H ; 

FILE OEFFNEN 

210 

RDBYTE 

EQU 

0013H ; 

BYTE LESEN 

220 

INBUFF 

EQU 

05D9H ; 

EINGABE EINER ZEILE 

230 

PRINTT 

EQU 

2B75H ; 

TEXT AUSGEBEN 

240 

OUTCH 

EQU 

0033H ; 

ZEICHEN AUSGEBEN 

250 

START 

LD 

HL, TEXT ; 

»FILENAHE 7» AUSGEBEN 

260 


CALL 

PRINTT 


270 


LD 

HL, FCB ; 

F I LENAHE IN FCB 

280 


LD 

B > 20 


290 


CALL 

INBUFF ; 

EINGEBEN 

300 


JR 

C, START ; 

BREAK — > 

310 


EX 

DE, HL ; 

ZEIGER AUF FCB NACH DE 

320 


LD 

HL, BUFFER 


330 


CALL 

OPEN 

FILE EROEFFNEN 

340 


JR 

NZ, FEHLER 

; FEHLER — > 

350 

LOOP 

CALL 

RDBYTE ; 

BYTE LESEN 

360 


JR 

NZ, FEHLER 

; FEHLER — > 

370 


PUSH 

DE ; 

FCB-ADR. RETTEN 

380 


CALL 

OUTCH ; 

AUSGEBEN 

390 


POP 

DE 


400 

r * f 

JR 

LOOP ; 

UE I TER * - i *• * ■ *»*"»» 

410 

ENDE 

CP 

28 ; 

ENDE DES FILES 

420 


JR 

Z, START ; 

JA, NAECHSSTES FILE 

430 

FEHLER 

LD 

HL , FEHMEL 

; FEHLERHELDUNG AUSGEBEN 

440 


CALL 

PRINTT 


450 


JR 

START ; 

NEU BEGINN 

460 


# 

t 



470 


; TEXTE 


480 


f 



490 

TEXT 

DEFH 

’FILENAtlE 

o » 
* 

500 


DEFB 

0 


510 

FEHHEL 

DEFtl 

* DOSFEHLER t* 

520 


DEFB 

13 


530 


DEFB 

0 


540 


f 



550 


; BUFFER 


560 


* 

f 



570 

FCB 

DEFS 

32 


580 

BUFFER 

DEFS 

256 


590 


END 

START 
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Fol gendes Be i sp i e 1 demonstr i ert den di sk-re 1 at i ven Zugriff 
auf ei nzelne Sektoren . Die Sektornummer u i rd abgefragt und 
in das NEXT-Feld des FCB eingetragen. Weiterhin ist 
wichtig» daß im FCB der EOF auf den Wert 65535 gesetzt u i rd 
und das Bit für di sk-re 1 at i ven Zugr i f f gesetzt wird. 

Der ge 1 esene Sektor wird in 16 Zeil en a 16 Spa 1 ten auf dem 
B i 1 dsch irm ausgegeben . Der Di rektory beg i nnt im Sektor 360 . 


100 

;********************************************* 

1 10 

; * 




* 1 

120 

;* BEISPIEL 



* 

130 

; * 




* 

140 

;* DISKRELATIVEN 

SEKTOR LESEN 

* I 

150 

; * 




* 1 

- ■ 160 

; * (C3 

1985 LUIDGER RÖCKRATH ■ 


170 

; * 




* 

180 

;********************************************* 

190 

■ 




1 

200 

RDSEC 

EQU 

0CE36H 

SEKTOR LESEN 

j 

210 

INBUFF 

EQU 

05D9H 

EINGABE IM BUFFER 

1 

220 

DECLNO 

EQU 

1E4FH 

STRING IN ZAHL 

, 

230 

PRINTT 

EQU 

2B75H 

STRING AUSGEBEN 

I 

240 

OUTCH 

EQU 

0033H 

ZEICHEN AUSGEBEN 

i 

250 

START 

LD 

HL , TEXT1 

; FRAGE AUSGEBEN 

1 

260 


CALL 

PRINTT 

1 

i 

270 


LD 

HL, BUFFER 

1 

280 


LD 

3,5 



290 


CALL 

INBUFF 

ANTWORT LESEN 

1 

300 


JR 

C, START 

BREAK — > 


310 


CALL 

DECLNO 

SEKTORNR. DEC. 


320 


LD 

CFCB+10) 

»DE ; IN NEXT LSB/tlSB 1 

330 


LD 

DE, FCB 


1 

'340 


CALL 

RDSEC 

SEKTOR LESEN 

_ „ h „ 

350 


JR 

N2 , FEHLER ; FEHLER» — > 


360 


* 

I 




370 


; SEKTOR 

AUSGEBEN 


380 


f 




390 

OK 

LD 

HL, BUFFER 


400 


LD 

BC, 16 

B = 0 <256>, C = 

16 ZEICHEN / 

ZEILE 





410 

LOOP 

LD 

A » < HL) 

ZEICHEN LADEN 

• 

420 


CP 

f J 



430 


INC 

HL 



440 


JR 

NC, LI 

>=> > — > 


450 


LD 

A , * * 

STEUERCODES DURCH 

’ ' ERS. 

460 

LI 

CALL 

OUTCH 

ZEICHEN AUSGEBEN 


470 


DEC 

C 

16 ZEICHEN AUSGEGEBEN 

480 


JR 

NZ,L2 

NEIN — > 


490 


LD 

C, 16 



500 


LD 

A,0DH 

CR AUSGEBEN 


510 


CALL 

OUTCH 



520 

L2 

DJNZ 

LOOP 

WEITER 


530 


JP 

START 



540 


> 




550 


; FEHLERBEHANDLUNG 


560 


) 




570 

FEHLER 

CP 

6 

; DIR SEKTOR 


580 


JR 

o 

* 

N 

; JA — > 



I 


r 

i 
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590 

600 

610 

620 

630 

649 

650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
830 
890 
900 
910 
920 
930 
940 
950 
960 
970 


LD 

A, *?' 

CALL 

OUTCH 

JP 

* 

START 

* 

; TEXTE 


V 

TEXT 1 DEFH 

* SEKTOR 

DEFB 

0 

FCB DEFB 

82H 

DEFB 

0 

DEFB 

0 

DEFU 

BUFFER 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFÜ 

0 

DEFU 

0FFFFH 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

DEFB 

0 

BUFFER EQU 

* 

END 

START 


ANSONSTEN NEUBEGINN 

N LAUFUERK 0 ?» 

FILE OFFEN, DISK RELATIV 

BUFFERADRESSE 

NEXT 

EOF = 65535 


T - *V. fl 


< 


***' - i * t *1* * + *+ ■ 


i> ^ ' Ir < - ' < ,fc t r - t - ; " tZ 
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Das nächste Be i sp i e 1 ze i gt die Anuendung der 
Positionierungsroutinen . Insbesonders beim Arbeiten mit 
logischen Records können diese Routinen sinnvoll eingesetzt 
uerden . Nach dem öffnen des Files mit der logischen 
Recordlänge von 100» uerden zunächst 10 logische Records» 
die jeueils nur aus der Nummer und Leerzeichen bestehen, 
auf das File geschrieben und dieses ui eder geschlossen* 
Danach uird es uieder geöffnet und einzelne Records unter 
Zuh i 1 f enahme der versch i edenen Position i erungsrout i nen 
gelesen und auf dem Bildschirm ausgegeben. 

Hier noch mal ein überblick über die versch i edenen 
Position i erungsrout i nen 

Folgende Tabelle gibt an, auf uelchen logischen Record nach 
Aufruf der entsprechenden Positionierungsroutine 
zugegriffen uerden kann und uelchen Uert das NEXT-Feld im. 
FCB nachher hat. 

Alleinige Änderung des FCB beuirkt nicht das gleiche uie 
die POSx-Ca 1 1 s , da diese gegebenenfalls den momentanen 
Buffer auf D i skette schre i ben . 


1 


! 

! 

Log. Record. Nr. 

NEXT 

ttSB 

LSB 

BYTE 

i 

$ 

POS0 

♦ 

• 

0 

00 

00 

00 

t 

t 

POSDEC 

t 

“1 

- 1 og 

. Rec . 

Länge 


POSBC ! BC BC * log. Rec. Länge 

POSRBA ! RBA / log. Rec . L . H L C 

POSEOF t hinter letzten = EOF 


100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


;****##***##****#**#**************#*****#***** 

; * 




* 

;* BEISPIEL 



V ,-* h h V. ■ ^ ^ ; - 

; * 




* 

; * TEST 

ZUR 

POSITIONIERUNG 

* 

; * 




* 

; * CC) 

1985 

LUIDGER RÖCKRATH 

* 

; * 




* 

;********************************************* 

IN IT 

EQU 

0CE20H 

; FILE 

OEFFNEN 

OPEN 

EQU 

0CE24H 

; FILE 

OEFFNEN 

URSEC 

EQU 

0CE39H 

; REC. 

SCHREIBEN 

RDSEC 

EQU 

0CE36H 

; REC. 

LESEN 

POS0 

EQU 

0CE3FH 

; POS 

AUF SEKTOR 0 

POSBC 

EQU 

0CE42H 

; POS 

AUF LOG. REC BC 

POSDEC 

EQU 

0CE45H 

; POS 

EINEN SEC. ZURUECK 

POSEOF 

EQU 

0CE48H 

; POS 

AUF EOF 

POSRBA 

EQU 

0CE4EH 

; NEXT 

= HLC 

CLOSE 

EQU 

0CE28H 

; FILE 

SCHL I ESSEN 

OUTCH 

EQU 

0033H 

; ZEICHEN AUSGEBEN 

t 

START 

LD 

B, 100 

; LOG. 

RECLAENGE = 100 


LD 

DE , FCB 

; ZEIGER AUF FCB NACH DE 


LD 

HL, BUFFER 



CALL I N IT 

; FILE 

EROEFFNEN 


JR 

NZ, FEHLER ; FEHLER — > 
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370 


LD 

HL, LOGBUF 

380 


PUSH 

HL 

390 

FLOOP 

LD 

(HL),' ' 

400 


INC 

HL 

410 


DJNZ 

FLOOP ; 

420 


POP 

HL 

430 


LD 

B, *0' ; 

440 

SLOOP 

LD 

C HL> , B ; 

450 


CALL 

URSEC ; 

460 


JR 

NZ, FEHLER 

470 


INC 

B ; 

480 


LD 

A,B 

490 


CP 

’0 » + 10 

500 


JR 

NZ, SLOOP ; 

510 


CALL 

CLOSE ; 

520 


JR 

NZ, FEHLER 

530 


LD 

B,100 ; 

540 


LD 

DE, FCB ; 

550 


LD 

HL, BUFFER 

560 


CALL 

OPEN ; 

570 


JR 

NZ, FEHLER 

580 


LD 

HL, LOGBUF 

590 


CALL 

RDSEC ; 

600 


CALL 

PRBUF ; 

610 


LD 

BC , 8 ; 

620 


CALL 

POSBC 

630 


JR 

NZ, FEHLER 

640 


CALL 

RDSEC ; 

650 


JR 

NZ, FEHLER 

660 


CALL 

PRBUF 

670 


CALL 

POSDEC ; 

680 


JR 

NZ, FEHLER 

690 


CALL 

RDSEC ; 

700 


JR 

NZ, FEHLER 

710 


CALL 

PRBUF 

720 


LD 

HL,1 ; 

730 


LD 

C, 500-256 

740 


CALL 

POSRBA ; 

750 


JR 

NZ, FEHLER 

760 


LD 

HL, LOGBUF 

770 


CALL 

RDSEC ; 

780 


JR 

NZ, FEHLER 

790 


CALL 

PRBUF 

800 


CALL 

POSEOF ; 

810 


JR 

NZ, FEHLER 

820 


CALL 

RDSEC 

634 



f 

830 


JR 

NZ, FEHLER 

840 


RET 


850 


# 

t 


860 

FEHLER 

LD 

A ß O > 

r% y * 1 

870 


JP 

OUTCH 

880 


* 

* 


890 

PRBUF 

LD 

HL, LOGBUF 

900 


PUSH 

HL ; 

910 


LD 

B,100 ; 

920 

PLOOP 

LD 

A , (HL) ; 

930 


INC 

HL 

940 


PUSH 

DE ; 

950 


CALL 

OUTCH ; 


; LOGBUF MIT BLANK FUELLEN 
; BLANK IN BUFFER 
100 UAL 

10 SEC. SCHREIBEN 
REC.NR IN BUFFER 
LOG. SEKTOR SCHREIBEN 

REC.NR. + 1 
10 GESCHRIEBEN 

NEIN, UEITER 
FILE SCHL I ESSEN 
; FEHLER — > 

LOG. RECLAENGE = 100 
ZEIGER AUF FCB NACH DE 

FILE EROEFFNEN . 

; FEHLER — > 

1 . REC LESEN -m- * 

UND AUSGEBEN 
AUF 8. REC POS 

; FEHLER — > 

UND LESEN 
; FEHLER — > 

REC 8 NOCH MAL 
; FEHLER — > 

LESEN 

; FEHLER — > 

AUF BYTE 500 
POS 

; FEHLER — > 

REC 5 LESEN 
; FEHLER — > 

AUF FILEENDE POS. 

; FEHLER — > 

; H I NTER F I LEENDE LESEN640 
GIBT IiinER FEHLER ! 

; FEHLER — > 


*?* FUER FEHLER AUSGEBEN 


; BUFFER AUSGEBEN 
LOGBUF RETTEN 
LAENGE = 100 
ZEICHEN LADEN 

FCB-ADRESSE RETTEN 
UND AUSGEBEN 
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960 


POP 

DE 

970 


DJNZ 

PLOOP 

980 


POP 

HL 

990 


RET 


1000 


t 


1010 


; BUFFER 

1029 


i 


1030 

FCB 

DEFIt 

' TEST 

1040 


DEFB 

13 

1050 


DEFS 

27 

1060 

BUFFER 

DEFS 

256 

1070 

LOGBUF 

DEFS 

100 

1080 


END 

START 


FCB-ADRESSE ZURUECK 
UE I TER BIS 100 
LOGBUF ZURUECK 


F I LENAHE 
CR 

27 + 5 = 32 

SEKTOTBUFFER 

BUFFER FUER LOG. RECORD 
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Das letzte Beispiel zeigt ein Basicprogramm zur Reparatur 
eines zerstörten H I T-Sektors . Der H I T-Sektor (der zue i te 
des Direktory) enthält die Hashcodes aller Files. Wenn er 
zerstört ist» kann kein File mehr gelesen uerden . Denn er 
vollständig zerstört ist» hilft auch folgendes 
Basicprogramm erst » nachdem auf der Pos i t i on 2 des 
HIT-Sektors der Hashcode des Directory (DIR/SYS) C4H 
eingetragen uurde , da sonst der D i rectory n i cht gefunden 
uird. Das Unterprogramm ab Zeile 80 ermittelt den Hashcode 
eines Filenamens, der in A$ stehen muß. Dieser muß genau 11 
Zeichen lang sein, uobei Filename und -erweiterung jeweils 
mit Leerze i chen aufzufül 1 en s i nd . 

Die HIT-Sektor uird zunächst in das Feld HCl) eingelesen. 
Dann uerden alle ue i teren Di rektory-Sektoren gel esen und 
die aktiven Einträge gesucht. Bei diesen muß noch zuischen 
FPDE's und FXDE's untersch i eden uerden. Die Ersteinträge 
CFPDE’s) enthalten den Filenamen aus dem der Hashcode 
ermi tte 1t und in den HIT CH1CI)) ei nge tragen uerden kann . 
Alle folgende DIR-Einträge eines Files enthalten einen 
Bezug auf den vorangehenden Eintrag, aus dem der Hashcode 
kopiert uerden kann . 

Ist der gesamte HIT in H1CI) neu gener i ert , muß er wieder 
in den DIR/SYS auf Diskette geschrieben uerden. Da der 
Direktory 1 esegeschützt auf der Diskette stehen muß » uird 
zuvor durch den POKE in den FCB von File 1 CZeile 480) 
er re i cht , das der Sehre i bbef eh 1 ei nen Sektor 1 esegeschützt 
schreibt. 


10 CLEAR 1000 

20 DEFIHT A— 2 : DI MH I C255) 

30 Din HC255) , Hl C255) : ON ERROR GOTO 580 
40 0PEN"R”,1 , "DIR/SYS” 

50 FIELD 1,128 AS A$,128 AS B$ 

60 DEF FN EXO (A,B) = CA OR B) AND NOT CA AND B) 

70 GOTO 170 

80 REH UNTERPROGRAnM HASHCODE 
90 HO0 

100 FOR 11=1 TO 11 

110 HC = FN EXO C ASCC n I D$ CF$,II»1))> HC) 

120 HC = HC * 2 

130 IF HC >255 THEN HC=HC-255 

140 NEXT 

150 IF HC=0 THEN HC=1 
160 RETURN 

170 REH HAUPTPROGRAHH 
180 GET 1,2 

190 FOR 1=0 TO 255 : H 1 C I )=0 : NEXT 

200 FOR 1=0 TO 127 

210 HCl )=ASCC H ID$CA$, 1 + 1,1)) 

220 NEXT 

230 FOR 1=0 TO 127 

240 HC I + 1 28 ) =ASCC tl I D$C B$ ,1 + 1,1)) 

250 NEXT 

260 FIELD 1,32 AS F$C1),32 AS F$C2),32 AS F$C3),32 AS 
F$ C 4 ) , 32 AS F$C5),32 AS F$C6),32 AS F$C?) ,32 AS F$C8) 

270 H 1 C 31 )=HC 31 ) 

280 FOR 1=3 TO 15 

290 GET 1,1 ! 

300 FOR J=1 TO 8 
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310 F$=niD$<F$<: J) ,6, 1 1 ) 

320 IF ASCC F$ ( J ) ) AND &H10 THEN GOSUB 510 
330 NEXT 
340 NEXT 

350 FOR 1=0 TO 255 

360 IF HICI)OH(I) THEN PR I NT”H I T-Feh 1 er ” ; I 
370 NEXT 

380 FIELD 1,128 AS A$,128 AS B$ 

390 AA$=”” : BB$=”” 

400 FOR 1=0 TO 127 
410 AA$=AA$+CHR$CH1 C I > > 

420 NEXT 

430 FOR 1=128 TO 255 
440 BB$=BB$+CHR$ ( H 1 C I ) > 

450 NEXT 

460 LSET A$=AA$ 

470 LSET B$=BB^ ■ * ■ >■ *•*; •( >■■■ ~ * • .v/ii i-Hi*«’**» v 

480 POKE 23708,129 
490 PUT 1,2 
500 END 

510 IF ASC( F$ ( J ) ) AND &H80 THEN 570 

520 GOSUB 90 

530 K=CJ-1 >*32+1-3 

540 Hl<IO=HC 

550 PRINTF$,K,HC 

560 RETURN 

570 K=ASCdlID$CF$C J) ,2) ) : HC=H1 CK) : GOTO 530 
580 IF ERR=46 THEN RESUHE NEXT 
590 ON ERROR GOTO 0 
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1,3.8 Datum und Uhrzeit 


Datum und Uhrzeit werden automatisch per Interrupt 
aktualisiert. Sie können vom Basic aus mit TIMES abgefragt, 
aber nicht gesetzt werden . 

In folgenden Speicherzei len sind Datum und Uhrzei t 
abgelegt : 


404 1H 
4042H 
4043H 
4044H 
4045H 
4046H 


Sekunde 

n i nute 

Stunde 

Jahr 

Monat 

Tag 


Mit POKE-Bef eh len können Datum und Uhrze i t . gesetzt werden . 
Das DOS stellt folgende Routinen zur Umwandlung von Datum 
und Uhrzeit in einen String zur Verfügung: 




* 

CONTIM : 

Zeit in String der Form hh:mm:ss umwandeln 

♦ 

* 

' E : 

CE6DH 

* 

R : 

AF, BC, DE, HL 

* 

I : 

HL = Zeiger auf Buffer (8 Bytes lang) 

* 

0 : 

HL = Zeiger hinter ss 

* 


C HL— 8) , C HL— 7 ) - hh 

* 


(HL-5>, C HL— 4 > = mm 

* 


(HL-2) , CHL-1 ) = ss 


Funktion: 


Die Ze i t aus den Speicherze llen 4041 H-4043H wird im 


hh : mm : ss i n 
geschr i eben . 


den 


vom 


Benutzer 


def i n i erten 


Be i sp i el : 


Zeit ausgeben 


LD HL, BUFFER 

PUSH HL 

CALL CONTIM 

LD C HL) , 0 

POP HL 

CALL PRINTT 


Format 

Buffer 


Buff er zeiger 
retten 

Zeit in Buffer 
Buff er ende markieren 
Bufferanfang zurück 
Buffer ausgeben 
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*********************************************************** 


* 



* 

* 

* 

CONDAT : 

Datum in String der Form tt.mm.jj umuandeln 

* 

* 

E : 

CE70H 


* 

R : 

AF, BC, DE, HL 


* 

I : 

HL = Ze iger auf Buffer (8 Bytes lang) 


* 

0 : 

HL = Zeiger hinter jj 


* 


CHL-8), CHL-7) = tt 


* 


CHL-5), CHL-4) = mm 


* 


C HL-2 ) , CHL-1) = jj 


* 



* 


*********************************************************** 

Funktion: 

Das Datum aus den Speicherzellen 4044H-4046H wird im Format 
hh : mm : ss in den vom Benutzer def i n i erten Buf f er 

geschr i eben . 

Be i sp i e 1 : 


; Zeit ausgeben 
LD HL, BUFFER 

PUSH HL 

CALL CONDAT 

LD C HL ) , 0 

POP HL 

CALL PRINTT 


Buf f erze i ger 
retten 

Datum i n Buffer 
Buf f er ende mark i eren 
Buf f eranf ang zurück 
Buffer ausgeben 
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Folgendes Beispielprogramm überträgt Datum und Uhrzeit in 
einen Buf f er und gibt diesen bei jeder Änderung der Sekunde 
auf dem Bildschirm aus. 


100 ; ********************************************* 
110 ;* * 
120 ;* BEISPIEL * 

130 ;* * 

140 ;* ZEIT ABFRAGEN UND AUSGEBEN * 

150 ; * * 


160 

; * CO 

1985 LU 

IDGER RÖCKRATH * 

170 

; * 


* 

180 

; ************* 


190 

200 

CONTIM 

EQU 

0CE6DH ; ZEIT IN BUFFER 

210 

CONDAT 

EQU 

0CE70H ; DATUM IN BUFFER 

220 

PRINTT 

EQU 

2B75H ; BUFFER AUSGEBEN 

230 

CURSOR 

EQU 

4020H ; CURSORADRESSE 

240 

250 

S.TART 

LD 

HL , 4400H+40— 18 

260 


LD 

(CURSOR), HL ; CURSOR SETZEN 

270 


LD 

HL, BUFFER ; DATUM 

280 


CALL 

CONDAT ; IN BUFFER 

290 


LD 

CHL) , * * ; SPACE DAHINTER 

300 


INC 

HL 

310 


LD 

A , ( BUFFER+ 16 ) ; SECEINER RETTEN 

320 


PUSH 

AF 

330 


CALL 

CONTIM ; ZEIT IN BUFFER 

340 


LD 

CHL), 13 ; CR IN BUFER 

350 


INC 

HL 

360 


LD 

( HL) , 0 ; BUFFERENDE MARKIEREN 

370 


POP 

BC ; SECEINER NACH B 

380 


LD 

A , C BUFFER + 16) ; NEUER SECEINER 

390 


CP 

B ; AENDERUNG 

400 


JR 

Z, START ; NEIN — > 

410 


LD 

HL, BUFFER 

420 


CALL 

PRINTT ; BUFFER AUSGEBEN 

430 


JR 

START 

440 

450 

BUFFER 

• 

DEFS 

17 

460 


END 

START 


±.*t> ■ 
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Teil 2 : Hilfsprogramme Anleitungen und Que 1 1 programme 


Die Que 1 1 programme , die folgen , sind für den COLASM 
(Kassetten- oder Diskettenversion) ausgelegt. Die 
ORG- Adr essen sind so f estge 1 egt , daß die Programm i m 
höchsten Spe i eher des 32K-Systems res i d i eren . Da der COLASM 
ke ine Assembl er 1 i st i ngs mit Que 1 1 - und Hasch i nencode 
erste 1 1 en kann , wurden die Listings mit dem EDTASM unter 
GDOS mit ei nem Gen i e III s erste 1 1 t . Der Quell Code 
beg i nnend mit der Ze i lennummer kann aber auch auf einem 
Co 1 our-Gen i e mit COLASM verarbei tet werden , die Syntax des 
Quellcodes ist bei EDTASM und COLASM identisch. Alle 
Programme außer COLBAS (zu lang) wurden auch mit dem COLASM 
assembl i ert und erzeugten dort einen ei nwandfre i 
lauffähigen Objektcode. Mnemonics, die vom COLASM 
f eh lerhaft assemb 1 i ert werden (ADD HL, SP), wurden durch 
DEFB ersetzt . 


Die Kassette bzu . Di skette mit allen Quel 1 programme ( i nkl . 
der Bei sp iele aus Teil 1) ist natürli ch direkt vom COLASM 
zu verarbe i ten . Alle Quel 1 programme sind dort als 
Bas i eprogramme auf geze i chnet , so wie es der COLASM fordert . 

Her Über ke i nen Assembler verf ügt ( Der Assemb 1er COLASM 
kann von uns für DM 69 , — < auf Kassette) bzu . 95 , — (auf 
Diskette) erworben werden), kann auch mit einem Monitor (z. 
B . CBUG ) die Programme d i rekt i n den Spe i eher schre i ben . 
U i rd dabei die Star tadr esse ( ORG > geändert werden , muß bei 
allen Befeh len , die davon bee i nf 1 uß t werden , die Adresse 
entsprechend geändert werden . 

Auf der Quel 1 programmkassette bzu -diskette für DM 99 , — DM 
sind folgende Sourcen auf gezeichnet : 


B 1 /ASM 


B2/ASM 


B3/ASM 


B4/ASM 


B5/ASM 


B6/ASM 


B7/ASM 


B8/ASM 


B9/ASM 


V I DEO/ASM 


SED I T/ ASM 


COLBAS/ ASM 

( auf 

ARRAYD/ ASM 

( nur 

ARRAY/ ASM 

( nur 


l 

i 

i 

i 

i 


D i skette nur Teile) 
Diskette) 

Kassette ) 


COPBIT/ASM 

SAVETAPE/ASM (nur Diskette) 


Format der Diskette: 40 Spur, einseitig, doppelte Dichte 


Auf der Kassette s i nd die genannten Quel 1 programme i n 
dieser Rei henf o 1 ge hintere i nander auf geze i chnet . 
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2.2*1 Bi 1 dsch i rmed i tor SED I T 


Das kurze Maschinenprogramm SEDIT ermöglicht volles 
Bi ldsch i rmed i t i eren von Basi cprogrammen , ähnlich wie be i 
den CBM-Rechnern . SEDIT vereinigt große Effizienz mit 
einfacher Bedienung» da komplizierte Manipulationen mit 
uen i gen einfachen und se 1 bst verstand 1 i chen Grundf unkt i onen 
durchgef ührt werden können . 


Funkt i on : 


SEDIT wird durch Verändern des Displ ayvektors an den 
Basi c interpreter angebunden. Der Aufruf der OUTCH-Rout i ne 
in der Hauptsch leife zur Ausgabe des Promptze i chen kann so 
erkannt und unterdrückt werden. Stattdessen wird der 
B i 1 dsch i rmed i tor auf gerufen und beim Drücken von < ENTER > 
diejenige 1 og i sehe Zeile, in der sich der Cursor bef i ndet , 
im I /O-Buf f er an den Bas i c i nterpreter übergeben . 

Außerdem muß die OUTCH-Routine angezapft werden, um die 
Funktion des CR zu verändern. CR C=0DH) bewirkt 
normalerweise bei der Ausgabe per OUTCH das Positionieren 
des Cursors auf den Anfang der folgenden Zei le und das 
Löschen dieser Zeile. Unter SEDIT wird vor der 
Positionierung der Rest der Zei 1 e , in der s i ch der Cursor 
bef i ndet , ge 1 Öscht und das Ende der Ze i 1 e durch ein 80 H 
C Graf i kspace , uns i chtbar } mark i ert . Die folgende Ze i 1 e , auf 
deren Anfang der Cursor position i ert wird , wird nicht 
verändert . 

Durch die Mark i erung des Ende j eder 1 og i sehen Ze i 1 e i st die 
Verarbeitung von beliebig langen Zeilen durch SEDIT 
mög 1 i ch . Die Markierungen werden beim Sero 1 1 en automatisch 
mitgenommen und durch SEDIT beim Einfügen, Löschen, . . . 
richtig mod ifiziert» wenn dies notwendig ist. 

Der CBM-Bi 1 dsch i rmed i tor arbeitet nicht mit solchen 
Markierung sondern mit Bitmasken , die angeben , ob 
auf ei nanderf o 1 gende Bi 1 dsch i rmze i len zusammengehören . Da 
d i ese Bitmasken bei jedem Scrol 1 verändert werden müssen , 
verbat sich d i eses Vorgehen beim Co 1 out — G en i e , wenn e i ne 
voll ige Neuprogrammierung der OUTCH-Routine vermieden 
werden sol 1 . Außerdem ermögl icht das Konzept mit den 
Mark i er ungen i nteressante Mög 1 i chkei ten zum Ed i t ieren , wie 
z. B. die Verknüpfung zweier Zeilen. 
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Bo arbei ten Sie mit SEDITs 


Soba Id SED IT geladen und initial isi ert ist» erscheint 
der neue Cursor : ein bl i nkendes Quadrat. Di eser erscheint 
fortan i mmer , uenn i m normal en Betr i eb das Promptze i chen 
erscheinen würde , a 1 so nicht unter AUTO » SYSTEM , EDI T oder 
während der Programmausf ührung . 

Soba ld der bli nkende Cursor zu sehen ist, eröf f net sich 
Ihnen eine Vielfalt neuer Möglichkeiten das Programm zu 
verändern. Da der Cursor mit den vier Pfeiltasten 
zerstörungsf rei über den gesamten Bildschirm bewegt werden 
kann , w i rd auf der Cursorpos i t i on abwechse 1 nd das 
Cursorzeichen Cweißes Quadrat) und das Zeichen, welches 
sich auf di eser Pos i t i on befand , angezeigt . 

Auf der Cursorpos i t i on kann der B i 1 dsch irminhalt nun 
einfach über sehr i eben werden , aber alle Änderungen werden 
erst in den Speicher übernommen, wenn die ENTER-Taste 
gedr Ückt wird (s.u.). 

Mit den v i er Pfeil tasten kann der Cursor bewegt werden . 
Stößt er bei Vor- oder Rückwärtsbewegung auf das Zeilenende 
oder den -anfang, geht er automatisch in die vorhergehende 
oder nachfolgende Zeile. Bei der Auf- und Abwärtsbewegung 
bleibt er am B i 1 dsch i rmrand stehen . 

(Da < A > zur Cursor bewegung dient, erg i bt < SH I FT >< A > 
fortan den Exponent i at ionspf e i 1 . ) 

Bei den im folgenden dargestellten Funktionen werden von 
SEDI T keine physika 1 i sehen Ze i 1 en Cd.h. die 64 Zeichen 
einer Bi ldsch i rmze i 1 e> „ sondern 1 og i sehe Ze i 1 en Cd.h. 
Zeilen» die zwar länger als 64 Zeichen sein können, aber 
sinngemäß zusammengehören. ) verarbeitet. 


Anmerkung zu den Be i spielen : 

__ : Cursorpos i t i on 

$ : Taste f estha 1 ten bis Cursor auf gewuenschter Posi t i on 


I 


1 
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< SM IFT><4-> (DELETE) s 


Das Seichen auf der Cursorposition uird gelöscht; der 
Rest der logischen Zei le rückt nach . 

Beispiel : 


10 

FOR 

1=0 

TO 

1 0 : FR I NT I : NEXT 

<SHIFT><**> 

10 

FOR 

1=0 

TO 

10 : RI NT I : NEXT 

< SH I FT >«• > 

10 

FOR 

1=0 

TO 

10: INT I : NEXT 

<SHIFT><«-> 

10 

FOR 

1=0 

TO 

10: NT I : NEXT 

<SH I FT >«-> 

10 

FOR 

1=0 

TO 

10 : T I : NEXT 

< SH I FT >«-> 

10 

FOR 

1=0 

TO 

10: _I : NEXT 

<SH I FT ><*r> 

10 

FOR 

1=0 

TO 

10:1.: NEXT 

< SH I FT >«-> 

10 

FOR 

1=0 

TO 

10: iNEXT 

<SHIFT><«-> 

10 

FOR 

1=0 

TO 

1 0 : NEXT 

- 


(Anstatt 8 mal die <SHIFT> und <^>-Taste zu drücken, können 
Sie di ese Tasten auch e i nf ach fest ha 1 ten , bis der 2 . 
Doppelpunkt unter dem Cursor erscheint (s . u . 
Repeatf unkt ion ) . 


< SKI I FT X— ► > 


< I NSERT > s 


Nach einmaligem Drücken von <SHIFT>< — *> befindet sich 
SEDIT im I nsert-Hode , der erst bei Drücken eines 
n i chtdruckenden Zeichen (z.B. Cursorbeuegung oder ENTER) 
u i eder ver 1 assen uird. Im I nsert-Ilode uird jedes druckende 
Zeichen an der Cursorposition eingefügt und der Rest der 
logischen Zei le uird ue i ter geschoben . Auch bei 

überschreiten des Zei 1 enendes uird der Bi ldsch i rmi nha 1 t 
r i cht ig korr ig i ert . 

h f *1 *if i * ? mik i., - V * * i * * n ; * * j- *'*>*?' 

Beispiel : 


10 A=11ID$(A$,2)_ 
10 A=MID$( A$ , 2)_ 
10 A=HID$(A$,2,1 
10 A=niD$(A$,2, 1 ) 


<SHIFT><-*> 

< » > 

< 1 > 

< ENTER > 


(Durch das einmal ige <SHIFT>< —▼> uird SEDIT 
Insert-rtodus versetzt. Alle druckenden (d.h. direkt 
Bi 1 dschi rm darstel 1 baren Zeichen) uerden jetzt 


Cursorposi t ion eingefügt, 
verschoben . Durch Eingabe 


(uie z . B . : 
Beispiel die 


< ENTER >) 
Zeile in 


uird 

Ihrer 


und der Rest der Zei 1 
eines n i chtdruckenden 
d i eser Hodus ver 1 assen 
neuen Form abgespeichert. 


i n den 
auf dem 
an der 
e uird 
Zeichen 
und im 


1 
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- Anleitung 


<SHIFT><@> <SKIP) a 


Vom Cursor an uird der Rest der 
ge 1 öscht . 

Be i sp l el : 


logischen Zeile 


10 7 I,!*!*.!*!*! < SH I FT >< @> 

10 ? I , 1*1 


f- ' * t ♦ ' < 


t >1 1 } L 1 






Vom Bi ldschirmende uird die erste freie Zei le zur 
bequemen Bef eh 1 sei ngabe gesucht , und der Cursor dort 
pos i t i on iert . 




U i e gehabt * ) 


< ENTER > = 


Der Inhalt derjenigen logischen Zeile, in der 
Cursor bef indet, uird über den Tastatur tre i ber 


Bas i ci nterpreter übergeben 
Zeichen, uird ein LS-Error 
sich danach in der nächsten 


CIst die Zeile 1 änger 
erkannt.)* Der Cursor 
logischen Zeile. 


sich der 
an den 
als 240 
bef i ndet 


L * *** 


* > \ kjf ' 
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Mit SEDIT können Programmod i f i kat i onen , die sonst 

kompliziert und langwierig sind, einfach und komfortabel 
erledigt werden. Hier sind einige wichtige Tricks 
zusammengetragen : 

1) Verschieben von Programmzeilen 

Hit SEDIT können einfach Zeilennummern geändert und 
somit Programmzeilen verschoben oder dupliziert werden. 

Beispiel : 

10 ? I ” . ELEMENT "A CI) 20< ENTER > 

20 ? I " . ELEMENT"A( I > • LIST<ENTER > 


25 Editieren nach Syntax-Fehlern 


Bei Syntax— Feh lern springt der TRS— 80 automatisch in den 
2ei leneditor . Unter SEDIT verläßt man diesen am besten 
sofort mit ENTER C was e i nen Ausdruck der Zeile bew i rkt 5 und 
editiert sie sodann mit SED I T . 


3) Verknüpfen von Programmzeilen 


Zwei Programmzei len können einfach zu einer einzigen 
verbunden werden: 

3.1) über sehr e i ben des letzten Zeichens der 1 . 1 og i sehen 
Zei 1 e CI etzte B i 1 dsch irmspa 1 te 5 . Der Cursor bef i ndet sich 
sodann i n der 2 . Zei 1 e und beide bi 1 den nun eine 1 og i sehe 
Zei 1 e . Hit Del ete werden nun nur noch die überf 1 üssi gen 
Leerzeichen und die 2 . Zei lennummer entfernt . 

3.2) Löschen des 1 etzten Zei chen C s . o . ) mit De 1 ete . Die 
2 . Zei 1 e rückt dann nach . Ue i ter wie bei 3.1). 




Beispiel : 


Bi Idschirmrand — n 



10 FOR 1-0 

TO 

10 2 

r 


20 NEXT 


■ 


<SHIFTX*>> 

10 FOR 1=0 
0 NEXT 

TO 

10 \z 


$<■*•> 

10 FOR 1=0 
0 NEXT 

TO 

10_ ' 2 

i 


$<shift><4-> 

10 FOR 1=0 

TO 

1020 NEXT 


<SHIFT><^-> 

10 FOR 1=0 

TO 

100 next ; 


<SHIFT><«-> 

10 FOR 1=0 

TO 

1 0 JNEXT 


< : > 

10 FOR 1=0 

TO 

10: NEXT 

■ 

< ENTER > 


1 
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4 


4) Übernahme von Programmausdrucken 

Hit SEDIT können auch Ausdrucke von Programmen einfach 
in den Speicher übernommen werden: z.B. können 

Hasch i nenprogramme von einem kleinen Programm mit 

Zeilennummer und DATA-Anueisung auf den Bildschirm gedruckt 
werden und dann mit SEDIT in den Speicher übernommen 
werden . 

5) Wiederholung von ähnlichen Direktanueisungen 

I 

I 

Direktanueisungen können ohne aufuendige Tipperei bequem 
mit verschiedenen Parametern durchlaufen werden.. 


Kl ei nbuchstaben und Uml au'be 


% 

i 

Unter SEDIT ist eine vernünftige Verwendung der 
Kleinbuchstaben uie auf einer Schreibmaschine möglich. Ohne 
<SHIFT> oder <LOCK> groß und mit klein. Will man den 
Or i g i na 1 modus u i eder erreichen, so kann man dies mit <CTRL> 
und <0>. Die Umlaute werden durch Drücken der Tasten <CTRL> 
und < A > 0, U, a, o, u, s> errei cht C h i ntere i n ander > . Sie 
uerden auf dem Bildschirm richtig dargestellt und im 
Programmtext mit den üblichen Codes 5BH..5DH, 7BH . . 7EH 
abgelegt, so daß ohne ueiteres auf einem Drucker Listings 
vom Programm gemacht uerden können . Be i Ei ngaben im 
Programm können die Umlaute nicht genutzt uerden. 


I 
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Z u®Ämmfs>n -f assun g 


<-*> 

Cursor 

«-> 

Cursor 

<-f > 

Cursor 

< 4 >> 

Cursor 


Zeichen nach rechts 
Zeichen nach 1 inks 
Zei le hoch 
Ze i 1 e runter 


< SH I FT><4*> 

< SH I FT ><-?►> 


< SH I FT ><@ > 
< BREAK > 

< CLEAR> 

< ENTER > 


DELETE: 

INSERT: 


SKIP: 
CFID : 

CLEAR: 

RETURN: 


Zeichen auf Cursorposi t i on 1 öschen 
Rest der Ze i le nach 1 i nks rücken . 

I nsert-Ilodus setzen . 

Folgende Zeichen an Cursorposition 
ei nf ügen 

Rest der Zeile löschen 
Cursor in erste freie Zei le vom 
B i 1 dsch i rmende her pos i t i oni eren 
Bi ldschirm löschen 

Zeile an Basicinterpreter übergeben. 


Kleinbuchstaben und Umlaute: 


<CTRL><0 > 

< CTRL >< A > 

< CTRL >< a > 

< CTRL ><0> 
<CTRL><o> 

< CTRLX U > 
<CTRL >< u > 

< CTRL ><s > 


Umschalten in Sehre i bmasch i nenmodus 
und zurück 

a 

S 

0 

ö 

U 

ü 

B 


Fi s » * -7 , f# 




] 


1 

J 


1 

J 

! 


1 

1 


» 
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00100 
001 10 
00120 
00130 
00140 


TRS-SO-SCREEN-EDTIQR ** 

COPYRIGHT B\ L.U1DDER R0ECI RATH 
\ AISEPSTR, 54 
4050 MDENCHEN 6 LADPACH 1 
JUNI 1*^81 




00150 

; BAS] C-UNTERPROGRAMME: 

002B 


00160 INCH 

EÜU 002BH 

; TASTATURABFPAGE 

0055 


00170 OUT CH 

EDU 0033H 

; ZEICHENAUSGABE 

51 BE 


00 ISO SCPOLL 

EQU 318EH 

; B I LDSCH I PMSCFlOLL 

o 1 C9 


00190 CLEAR 

EGU 01C9H 

; BILDSCHIRM LOESCHEN 

51 BF 


■30200 CLEOL 

EQU 31BFH 

; BIS ZEILENENDE LOESCHEN 

5165 


00210 CR 

EQU 3165H 

; CURSOR ZUM ZEILENANFANG 

5203 


00220 DOWN 

EQU 3203H 

; CURSOR EINE ZEILE RUNTER 

i A V B 


00230 PET 

EQU JA7PM 

; RUEQ SPRUNGADRESSE 

19A2 


00240 ERROR 

EQU 19A2H 

; BAS I C-ERRORROUT I NE 

0060 4 

■ * i r 

00250 DELAY 

EQU 006 OH 

; 2 E3 TSCHLETFE 



00260 

;BA5IC-ZE16ER: 

^ n # " I i * 

4020 


00270 CURSOR 

EÜU 4020 H 

; CUPS0RADRE5SE 

4016 


00280 > E YVEC 

EGU 4016H 

\\ EVBOAPD-TREIBEP-VEl TOR 

40 IE 


O0290 PIS7EC 

EQU 471 EH 

; DISPL.AV-TREIBEP-VEf' TOP 

40A7 


00300 BUFFER 

EQU 40A7H 

; I / 0- BUFFER ANFANG 

4056 


00310 LAST 

EQU 4036H 


F901 


00320 i E r'BD 

EÜU 0F871H 




00330 

; INTERNE SYMBOLE 


0080 


00340 MARI- ER 

EQU 90H 

; TRENNT LOGISCHE ZEILEN 

0400 


00 350 EZEIT 

EQU 400 H 


0080 


00360 RFREQU 

EQU 128 




00370 

; INITIALISIERUNG: 



0038Ö 

; A3EG 


BC50 


00390 

ORG 0BC5OH 




00400 

; SEDIT INITIALISIEREN 

BC50 

2A1E40 

00410 INIT 

LP HL, (DI5VEO 


BC53 

2??üBC 

70420 

LD <0UT+1‘,HL 


BC56 

216SBC 

00430 

LD HL, SEDIT 

; DISPLAYOEt TOP AENDEPN 

BC59 

221E40 

00440 

LD <DIS''EO,HL 

4. 1 4 i 4 * ’ * ^ 



00450 

! 


BC5C 

2A1640 

00460 

L.D HL, N EYVEC J 


BC5F 

21D2BE 

00470 

LD HL, NEW e/ 


BC62 

221640 

00480 

LD NEyVEO,HL 


BC65 

C3191A 

00490 

JP 1A19H 




00500 

■ 

t 




00510 

* 

% 




00520 

i HAUPTPROGRAMM 


BCöS 

2 IDE 00 

00530 SEDIT 

LD HL, 14 

; RUECi SPRUNGADRESSE 

BC 6 B 

59 

00540 

DEFB 3*H 




00550 

; = ADD HL, SP 

; DURCH STACTMANIPULATION 



00560 

; wird von CQLA3M falsch übersetzt 

BC 6 C 

5E 

00570 

LD E, (HU 

; ERMITTELN 

BC 6 D 


00580 

INC HL 


BC 6 E 

56 

00590 

LD D, (HU 


BC 6 F 

E5 

00600 

PUSH HL 


BC70 

217B1A 

00610 

LD HL, RET 


BC75 

DF 

00620 

RST 18H 

; =RET '’ 1 

BC74 

El 

00630 

POP HL 

• 

BC75 

2845 

00640 

JR Z , EDIT 

; JA 

BC77 

79 

00650 

LD A, C ! 

■.NORMALE AUSGABE 

BC78 

21E0BF 

00660 

LD HL, CTAB2 


BC7B 

CD62BF 

00670 

CALL CONVER 


BC7E 

2011 

00680 

JR NZ, 01 


BC80 

2A2040 

00690 

LD HL, (CURSOR! 
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BC83 

F5 

00700 

PUSH AF 


BC84 

0E3A 

00710 

LD C,’:’ 


BC86 

A7 

00720 

AND A 


BC87 

CD95BC 

00730 

CALL OUT 


BCBA 

Fl 

00740 

POP AF 


BC8B 

2A2040 

00750 

LD HL, (CURSOR) 


BC8E 

2B 

00760 

DEC HL 


BC8F 

77 

00770 

L.D (HL) , A 


BC90 

C9 

00780 

RET 


BC91 

4F 

00790 01 

LD C,A 


BC92 

D60D 

00800 

SUB ODH 


BC94 

A7 

00810 

AND A 

; CARRY LOESCHEN! 

BC95 

C 20000 

00820 OUT 

JP NZ, O 

; NE I N 

BC98 

DD BEO 3 

00830 

LD L,(IX+3) 


BC9B 

DD 66 04 

00840 

LD H, (IX+4) 


BC9E 

DD7E05 

00850 

L.D A, UX+5) 


BCA1 

A7 

00860 

AND A 


BCA2 

2801 

00870 

Jft Z,000 


BCA4 

77 

00880 

LD (HL) , A 


BCA5 

E5 

00890 000 

PUSH HL 


BCA6 

CD5F30 

00900 

CALL 305FH 

* 

BCA9 

CD6531 

00910 

CALL CR 


BCAC 

112800 

00920 

LD DE, 40 

- 'V 1 t '5 L u - 

BCAF 

19 

00930 

ADD HL , DE 


BCBO 

EB 

00940 

EX DE, HL 


BCB1 

1B 

00950 

DEC DE 


BCB2 

El 

00960 

POP HL 


BCB3 

CD36BD 

00970 

CALL SKI PI 


BCB6 

CDBABE 

00980 

CALL CR1 


BCB9 

C30831 

00990 

JF 3108H 


BCBC 

23 

01 000 ED IT 

INC HL 

; NEUER STACK 

BCBD 

F9 

01010 

LD SP, HL ' 


BCBE 

3E0E 

01020 

LD A, 14 

-CURSOR OFF 

BCCO 

CD 3300 

01030 

CALL OUTCH 


BCC3 

D9 

01040 

EXX 

; FLAG LOESCHEN 

BCC4 

1E00 

01050 

LD E, 0 i 

* 

BCC6 

D9 

01060 

EXX 


BCC7 

2A2040 

01070 LOOP 

LD HL, (CURSOR) 


BCCA 

CD2B00 

01080 SCAN 

CALL INCH 


BCCD 

A7 

01090 

AND A 

; TASTE 5EDRUECKT? 

BCCE 

2002 

01100 

JR NZ, BRANCH 

; JA 

BCDO 

18F8 

01110 

JR SCAN ; NEIN 

BCB2 

11C7BC 

01120 BRANCH 

LD DE, LOOP 

; RUECKSPRUNGADRESSE 

BCD5 

D5 

01 130 

PUSH DE 


BCD6 

FE60 

01140 

CP * $ ’ +20H 

; SKIP? 

BCD8 

2855 

01150 

JR Z , SK I P 

; JA 

BCDA 

FE 20 

01160 

CP ’ ’ 

; ZEICHEN < * ’ 

BCDC 

380A 

01170 

JR C , CNTL 

; JA 

BCDE 

D9 

01180 

EXX 

; INSERT-FLAG GESETZT 

BCDF 

CB43 

01190 

BIT 0, E 


BCE1 

D9 

01200 

EXX 


BCE2 

C27FBD 

01210 

JP NZ, INSERT 

; JA 

BCE5 

C 33 300 

01220 

JP OUTCH 

; ZEICHEN AUSGEBEN 

BCE8 

D9 

01230 CNTL 

EXX 

; INSERT-FLAG SETZEN 

BCE9 

CBC3 

01240 

SET 0, E 


BCEB 

D9 

01250 

EXX 


BCEC 

FE19 

01260 

CP 19H 

; INSERT? 

BCEE 

C8 

01270 

RET Z 

; JA 

BCEF 

F5 

01280 

PUSH AF 


BCFO 

CD5F30 

01290 

CALL 305FH 
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BCF3 

Fl 

01300 

POP AF 


BCF4 

D9 

01310 

EXX ; 

JNSERT-FLA6 ZURUFC1 SETZ 

BCF5 

CB83 

01320 

RES 0, E 


BCF7 

D« 

01330 

EXX 


BCF8 

FE18 

01340 

CP 18H 

DELETE'"' 

BCFA 

2862 

01 350 

JR Z, DELETE 

JA 

BCFC 

FE1F 

01360 

CP 1FH 

CLEAR' - ' 

BCFE 

CAC901 

01370 

JP Z , CLEAR 

JA 

BD01 

FE01 

01380 

CF 1 

BREAk ? 

BD03 

2838 

01390 

JR Z, BREAK 

JA 

BD05 

FEOD 

01400 

CP ODH 

ENTERB 

BDO* 7 

CA3DBE 

01410 

JP Z, RETURN 

JA 

BDOA 

11D8FF 

01420 

LD DE, -40 

ZEILE RAUF 

BDOD 

FE1B 

01430 

CP 1BH 

UP° 

BDOF 

2812 

01440 

JR Z.MOVE 

JA 

BDI 1 

11FFFF 

01450 

LD DE, -1 - 

ZEICHEN ZURUECk . 

BD14 

D608 

01460 

EUB 8 

BAD ° 

BD16 

2 80B 

01470 

JP Z.MOVE 

JA 

BD19 

110100 

01480 

LD DE, 1 

ZEICHEN VOR 

PD1B 

3D 

0 1 4 Q 0 

DEC A 

ADVANCE"' 

BD1C 

2805 

01500 

JR Z.MQVE 

JA 

BDI E 

112800 

01510 

LD DE, 40 

ZEILE RUNTER 

BD21 

3D 

01520 

DEC A 

DOWN" 1 

BD22 

CO 

01530 

RET MZ 

MEIN 

BD23 

19 

01540 MO VE 

ADD HL, DE 

ZUM CURSOR ADDIEREN 

BD24 

CDC8BE 

01550 

CALL VIDEND 

CURSOR NOCH IM VIDEOFAM 

BD27 

C8 

01560 

RET Z 

NEIN, AENDERUNG INGN. 

BD28 

7C 

01570 

LP A, H 


BD29 

FE43 

01580 

CP 43H 


BP2B 

ca 

01590 

RET Z 

NEIN 

BD2C 

C 30831 

01600 

JP 3108H 


BD2F 

CP9EBE 

01610 Sk IP 

CALL 5EAPCH 

I LETZTES ZEICHEN SUCHEN 

BD32 

EB 

01620 

EX DE, HL 

; LETZTES ZEICHEN 

BD33 

DF 

01630 

PST 18H 

IMINTFR CURSOR 0 

BD34 

EB 

01640 

EX DF., HL 


BD35 

D8 

01650 

RET C 

: JA 

BD36 

3620 

01660 31 IP1 

LP (HL»,' ’ 

; ZEICHEN LQESCHEN 

BD3S 

DF 

01670 

PST J8H 

i LETZTES ZEICHEN GEL . ° 

BD3 Q 

*_ -> 

01680 

INC HL 


BD3A 

20FA 

01690 

JR NZ,SMP1 

; NEIN 

BD3C 

C9 

01700 

RET 


BD3D 

21E747 

01710 BREAK 

LD HL, 47E7H 

; LETZTES VIDEORAMB': TE 

BD40 

7E 

01720 BREAkl 

LD A, (HL» 


BD41 

FE 20 

01730 

CP ’ ’ 

i BLANK 7 

BD43 

2006 

01740 

JR NZ , BREAk 2 

iNEIN 

BD45 

2B 

01750 

DEC HL 

; JA, NETTER ZURUECk 

BD46 

7C 

01760 

LD A, H 

; VIDEORAMANF. ERREICHT 0 

BD47 

FE43 

01770 

CP 43H 


BD49 

20F5 

017Q0 

JR NZ, BREAkl 

; NEIN 

BD4B 

FESO 

01790 BREAk 2 

CP 80H 


BD4D 

2801 

01800 

JR Z, BREAk 3 


BD4F 

23 

01810 

INC HL. 


BD50 

CDC8BE 

01820 BREA13 

CALL VIDEND 


BD53 

CCSE31 

0 1 830 

CALL Z , SCRÜLL 


BD56 

222040 

f '*1840 

LD (CURSOR), HL 

i NEUER CURSOR 

BD59 

3E0D 

01850 

LD A , ODH 

; CR 

BD5B 

C33300 

01860 

JP OUTCH 


BD5E 

23 

01870 DELETE 

INC HL 

; LET ZTE5 ZEICHEN AB 

BD5F 

CD9EBE 

01880 

CALL SEARCH 

; CURSQP+1 SUCHEN 

RD62 

2B 

01890 

DEC HL. 
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BD63 

DF 

01800 

RST 18H 

MIT CURSOR VERGL. 

BD64 

2816 

01910 

JR Z, DEL 

SPRUNG, WENN GLEICH 

BD66 

DO 

01920 

RET NC 

FERTIG WENN HINTER CURSOR 

BD67 

54 

01930 

LD D, H 

CURSOR« ZI EL ADRE- SSE 

BD68 

5D 

01940 

LD E, L 

FUER BLOCKMOVE 

BD69 

23 

01950 

INC HL 

CURSOR* 1«QUEL.L ADR . 

BD6A 

D5 

01960 

PUSH DE 


BDfcB 

C5 

01970 

PUSH BC 


BD6C 

ED BO 

01980 

LDIR i 

MOVE 

BD6E 

CI 

01990 

POP BC 


BD6F 

Dl 

02000 

POP DE 


BD70 

E5 

02010 

PUSH HL 


BB71 

2100AC 

02020 

LD HL, 0F000H-4400H 

BD74 

19 

02030 

ADD HL, DE 


BD75 

54 

02040 

LD D, H 


BD76 

51) 

02050 

L.D E,L 


BD77 

HT 
h r J 

02060 

INC HL. 


BD78 

EDBO 

02070 

LDIR 


BD7A 

El 

02080 

POP HL 


BD7B 

2B 

02090 

DEC HL. 

ZURUECK ZUM LETZTEN BYTE 

BD7C 

3620 

02100 DEL 

LD (HL) , ” ’ 

; MIT SPACE UEBERSCHR. 

BD7E 

C9 

02110 

PET 


BD7F 

F5 

02120 INSERT 

PUSH AF 

ZEICHEN RETTEN 

BD80 

CD9EBE 

02130 

CALL 5EARCH 

LETZTES ZEICHEN SUCHEN 

BD83 

7E 

02140 

LD A. (HL) 

CURSOR AUF MARKER? 

RD84 

FE 80 

02150 

CP MARKER 


BD86 

2009 

02160 

JR NZ , LI 

i NE I N 

BD8B 

D9 

02170 

EXX 

FLAG SETZEN 

BD89 

CBCB 

02180 

SET 1 , E 


BDSB 

D9 

02190 

EXX 


BD8C 

54 

02200 

LD Dj H 

; ZEIGER AUF LETZTES Z. 

BD8D 

5D 

02210 

L.D E,L 

«CURSOR- 1 

BDBE 

1B 

02220 

DEC DE 


BDBF 

1806 

02230 

JR L.2 


BD91 

DF 

02240 LI 

RST 18H 

; VERGL. CURSOR-LETZTES Z. 

BD92 

2803 

02250 

JR Z , L2 

; SPRUNG, WENN GLEICH 

BB94 

D239BE 

02260 

JP NC, L3 

; CURSOR HINTER L.Z. 

BD97 

7B 

02270 L.2 

LD A,E 

; L. 2 . AM ZEILENENDE? 

BD9S 

E5 

02280 

PUSH HL 


BD99 

D5 

02290 

PUSH DE 


BD9A 

EB 

02300 ■■ ■ - v.- 

EX DE, HL : 


BB9B 

11A3BD 

02310 

L.D DE, LI 11 


BD9E 

D5 

02320 

PUSH DE 


BD9F 

E5 

02330 

PUSH HL : 


BBAO 

C34C03 

02340 

JR 34CH ; 


BDA3 

Dl 

02350 LI 11 

POP DE : 


BDA4 

El 

02360 

POP HL 


BDA5 

FE26 

02370 

CP 26H 


BDA7 

2072 

02380 

JR NZ,L4 

; NE I N 

BDA9 

E5 

02390 

PUSH HL 

; ENDE DER LETZTEN ZEILE 

BDAA 

21E647 

02400 

LD HL, 47E6H 


BDAD 

DF 

02410 

RST 1BH 


BDAE 

El 

02420 

PGP HL 


BDAF 

2019 

02430 

JR NZ, L5 

; NEIN 

BDB1 

D5 

02440 

PUSH DE ; 

; JA, SCROLL 

BDB2 

11D8FF 

02450 

L.D DE, -40 ■ 


BDB5 

19 

02460 

ADD HL, DE 1 

* 

BDB6 

222040 

02470 

LD (CURSOR), HL 


BDB9 

D9 

02480 

exx : 


BBBA 

D5 

02490 

PUSH DE ; 
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BOBS D? 

02500 

EXX 


BDBC C5 

02510 

PUSH BC 


BDBD CB8E31 

02520 

CALL SC ROLL 


BDlO CI 

02530 

POP BC 


BDC1 D? 

02540 

EXX 1 


BDC2 Di 

02550 

POP DE 


BDC3 D9 

02560 

EX* 


BDC4 DJ 

02570 

F'OP DE 


BDC5 21D8FF 

02580 

LD HL, OFFDSH 

; DE=DE-4Ö 

BDCS 19 

02590 

ADD HL, DE 


BDC9 EB 

02600 

EX DE, HL 


BDCA 21BE47 

02610 L5 

LD HL, 478EH 

; MUSS EIN REST HACH 

BDCD DF 

02620 

RST 19H 

; UNTEN OERSCHOBEN WERDEN'' 

BBCE D5 

02630 

PUSH DE 


BDCF 23 

02640 

1MC HL 


BDDO 23 

02650 

IOC HL 


BDD1 2830 

02660 

JR Z,L7 

" «NEIN * * ' 

BPD3 13 

02670 

INC DE 

; NAEZCHSTEZS ZEICHEN MAR) ER? 

BDD4 1A 

02680 

LD A, (DE' 


BBD5 FE BO 

02690 

CP MARI ER 


BDD7 202A 

02700 

JR NZ,L7 

; ME I N , f EINE VERSCHIEBUNG 

BDD Q EB 

02710 

E> DE, Hl 

; Hl.^ ANFANG DER NAECHSTEN 1. 

BDDA 23 

02720 

INC HL 


BDDB 1B 

02730 

DEC DE 

; QUELLADRE5FE (7FBF > 

BDDC DDE 3 

02740 

PUSH ] * 


BDDE DD21E747 

02750 

LD I X , 47E7H 

; ZIELADRESSE 

BDE2 1A 

02760 L6 

LD A, *DE> 


BDE3 DD 7 700 

02770 

LD 1 IX+O* , A 


BDE6 ES 

02780 

PUSH HL 


BDE7 2100AC 

02790 

L.D HL. , OF'X'OH- 

4 40 OH 

BDEA 1* 

02800 

ADD HL, DE 


BDEB 7E 

02810 

LD A, -HL) 


BDEC El 

02820 

POP HL 


BDED D5 

02830 

PUSH DE 


BDEE DDE5 

02840 

PUSH IX 

1 - - . T >- * ■* * < , -i— — , j i 

BDFO 110ÖAC 

02850 

LD DE, OFOOOH“ 

•4400H 

BDF3 DD 19 

02860 

ADD IX, DE 


BDF5 DD 7 7 00 

02870 

LD (IX+O) , A 


BDF8 DDE1 

02880 

POP IX 


BDFA Dl 

02890 

POP DE 


BDFB DF 

02900 

RST 18H 

; FERTIG*’ 

BDFC 1B 

02° 10 

DEC DE 


BDFD DD2B 

02920 

DEC IX 


BDFF 20E1 

02930 

JR NZ, L.6 

;NEIN 

BE01 DDE1 

02940 

POP IX 


BE03 CS 

02950 L7 

PUSH BC 


BEO 4 ES 

02960 

PUSH HL 


BEOS 1128AC 

02970 

LD DE« OFOOOH- 

■4400H+40 

BE 08 19 

02980 

ADD HL, DE 


BE09 7E 

02990 

LD A, (HD 


BEOA E3 

03000 

EX <SP), HL 


BEOB FS 

03010 

PUSH AF 


BEOC CDBF31 

03020 

CALL CLEOL 

; FREIGEWORDENE ZEILE 

BEOF Fl 

03030 

POP AF 


BE 10 E3 

03040 

EX (SP), HL 


BEI 1 77 

03050 

LD (HL) , A 


BE 12 El 

03060 

POP HL 


BE 13 Ci 

03070 

POP BC 


BE 14 112700 

0308 0 

LD DE, 39 


BE 17 19 

03090 

ADD HL, DE 
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BE IS 

Dl 

03100 

POP DE 


BEI? 

3680 

03110 

LD (HL.), MARKER 


BEI B 

D9 

03120 L4 

EXX 

; FLAG PRUEFEN 

BE1C 

CB4B 

03130 

BIT 1 , E 


BE1E 

CB8B 

03140 

RES 1,E 

; UND LOESCHEN 

BE 20 

D9 

03150 

EXX 


BE21 

2016 

03 1 60 

JR NZ,L3 

;GESETZT^— KEIN MÜVE 

BE 2 3 

62 

03 1 70 

LD H, D 

; EIN ZEICHEN VGRWAERTS 

BE24 

6B 

03180 

LD L, £ 

; VERSCHIEBEN 

BE25 

13 

03190 

INC DE 


BE26 

E5 

03200 

PUSH HL 


BE27 

D5 

03210 

PUSH DE 


BE2S 

C5 

03220 

PUSH BC 


BE29 

EDB8 

03230 

LDDR 


BE2B 

CI 

03240 

POP BC 


BE2C 

Dl 

03250 

POP DE 


BE2D 

2100AC 

03260 

LD HL, 0F000H-4400H 

BE 30 

19 

03270 

ADD HL, DE 


BE31 

E3 

03280 

EX (SP), HL 


BE32 

3 100AC 

03290 

LD DE, 0F000H-4400H 

BE 35 

19 

03300 

ADD HL, DE 


BE36 

Dl 

03310 

POP DE 


BE 37 

EDB8 

03320 

LDDR 


BE 39 

Fl 

03330 L3 

POP AF 

; NEUES ZEICHEN EINFUEGEN 

BE3A 

C 333 00 

03340 

JP OUTCH 


BE3D 

CD9EBE 

03350 RETURN 

CALL SEARCH 

; LETZTES ZEICHEN SUCHEN 

BE40 

E5 

03360 

PUSH HL 

; CURSOR RETTEN 

BE41 

1305 

03370 

JR R6 


BE43 

7E 

03380 RI 

LD A, (HL) 

; ERSTES ZEICHEN SUCHEN 

BE44 

FESO 

03390 

CP MARKER 


BE46 

2806 

('>3400 

JR Z,R4 


BE48 

2B 

03410 R6 

DEC HL 


BE49 

7C 

03420 

LD A, H 


BE4A 

FE 4 3 

03430 

CP 43H 

; ANF . DES VIDEORAM? 

BE4C 

20F5 

03440 

JR NZ, RI 

; NEIN 

BE4E 

23 

03450 R4 

INC HL 


BE4F 

7E 

03460 

LD A, (HL) 


BE50 

FE 20 

03470 

CP ? ? 1 


BE52 

28FA 

03480 

JR Z,R4 


BE54 

0600 

03490 : - ■ 

LD B, 0 

; ZAEHLER 

BE56 

DD2AA740 

03500 

LD IX, (BUFFER) 

; IN I/O-BUFFER 

BE5A 

7E 

03510 R2 

LD A, (HL) 

;UEBERTRAGEN 

BE5B 

E5 

03520 

PUSH HL 


BE5C 

21E8BF 

03530 

L.D HL, CTAB3 


BE5F 

C5 

03540 

PUSH BC 


BE60 

CD62BF 

03550 

CALL CONVER 


BE63 

CI 

03560 

POP BC : 


BE64 

El 

03570 

POP HL 


BE65 

DD7700 

03580 

LD ( IX+O) , A 


BE68 

DF 

03590 

RST 18H 

; FERTIG? 

BE69 

23 

03600 

INC HL 


BE6A 

DD23 

03610 

INC IX 


BE6C 

280D 

03620 

JR Z,R3 

; JA 

BE6E 

3007 

03630 

JR NC, LEER 

; LEERE ZEILE 

BE 70 

10E8 

03640 

DJNZ R2 . 

; 256 ZEICHEN UEBERTR. 

BE72 

1E1C 

03650 

LD E, ICH ! 

; LS-ERROR 

BE74 

C3A219 

03660 

JP ERROR | 


BE77 

DD2B 

03670 LEER 

DEC IX ; 

; ZAEHLER AUF ANFANG 

BE79 

El 

03680 

POP HL | 

; CURSOR ZURUECK 

BE7A 

E5 

03690 

PUSH HL : 
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BE7B 

Dl 

03700 R3 

POP DE 


BET 

DD 3 60 000 

03710 

LD < I X+O) , 0 

; ENDE MAPHEREN 

BE30 

CD6531 

03720 

CALL CP 

5 IM NAECHSTE ZEILE 

BEO" 

1 1 2800 

'.»3730 

L.D DE, 40 


BE36 

19 

03740 

ADD HL, DE 


BE 37 

CDBABE 

»'»3750 

CALL CP 3 


BESÄ 

CD»*’831 

03 7 60 

CALL 3 1 03 H 


BE8D 

2AA740 

03770 

L.D HL, (BUFFER* 

i PARAMETER FUER BASIC 

BE90 

2B 

03780 

DEC HL 


BE91 

3 EOF 

03790 

LD A, 15 


EE93 

CD33O0 

03800 

CALL OUTCH 


BE*6 

AF 

03810 

XOR A 


BE9? 

32°940 

03820 

LD »409°H',A 


BE*A 

Dl 

03830 

POP DE 

;SThCL L ORR IG. 

BE?B 

C3 7 E1A 

''*3840 

JP RET *3 

iZUPUEQ ZUM BASIC 

BE*E 

E5 

03850 SEARCH 

PUSH Hi 

; CURSOR RETTEN 

BE9F 

0 1 000 A 

03860 

LD BC , 0 ] 

; ZEICHEN2 AEHLER * “ 

BEA2 

7 E 

03870 S1 

IDA, ( HL.) 

SMAPLEP SUCHEN 

BEA3 

FE30 

03880 

CP MARLER 


BEA5 

2908 

03890 

JP :,52 


BEA7 

S 

03900 

INC ML 


BEAS 

0". 

03° 10 

INC BC 


BEA° 

CDlSBE 

03*20 

call vidend 

; BILDSCHIRMENDE'' 

BEAC 

20 F 4 

03*30 

JR NZ, 51 

; NEIN 

BEAE 

2B 

03940 

DEC HL 

; AUF LETTEN BILDSL’HIRMPL 

BEAF 

03 

03*50 52 

INC BC 


BEBO 

2B 

03960 S3 

DEC HL 

{LEERZEICHEN IGNORIEREN 

E*EB1 

OB 

03970 

DEC BC 


BEB2 

7E 

03980 

LD A, 'HL- 


BE B7 

FE 20 

0399>'t 

CP ’ ’ 


BEB5 

29F9 

04000 

JP / , S3 


BEB7 

E3 

04O10 

EX 'SP', HL 

; CURSOR ZUPUECI 1 

PEBS 

Di 

04020 

POP DE 

i > DE' “LETZTES ZEICHEN 

BEB9 

C* 

04030 

PET 


BEE'A 

CDC8BE 

04040 CR1 

CALL VIDEND 


BEBD 

CC8E31 

04050 

CALL. 1 , 5CPGL L 


BECO 

222040 

04060 

LD (CURSOR* 

, HL 

BEC3 

2B 

04070 

DEC HL. 

; ZEILENENDE MAPL* IEREN 

BEC4 

3680 

04080 

LD 'HL', MARL EP 


BEC6 


040*0 

INC HL 


BEC7 

C* 

»*»4100 

PET 


BEC3 

D5 

04110 VIDEND 

PUSH DE 


BEC9 

11E847 

04 1 20 

LD DE, 4 7 E8H 


BECC 

DF 

04130 

R£ T 18H 


BECD 

Dl 

04140 

POP DE 


BECE 

De 

04150 

RET C 


BECF 

A^ 

04160 

>0R A 


BEDO 

7C 

04170 

LD A, H 


BEB1 

C9 

04180 
04190 ; 

RET 


BED2 

3AF*BF 

04200 NEWLEY 

LD A, (FL EYZL) 


BED5 

A7 

04210 

AND A 


BED6 

2811 

04220 

JP Z.NU 


BED8 

3D 

04230 

DEC A 


BED9 

32F9BF 

04240 

LD (Ft EYZL), A 


BEDC 

2AFABF 

04250 

LD HL, (FhEYZG) 


BEDF 

7E 

04260 

LD A, (HL) 


BEEO 

*- * * 

04270 

INC HL 


BEE1 

22FABF 

04280 

LD ' FL EVZ6) , HL 


BEE4 

A7 

04290 

AND A 



f i 
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BEE5 CO 

04700 

RET NZ 


BEEt 7E0D 

04310 

LD A, OI'H 


BEE8 C9 

04720 

RET 


BEE9 CD6FBF 

04730 Nt 1 

CALL REF'EAI 


BEEC CDF5BE 

04340 

CALL Nt 1 1 


REEF A7 

04750 

AND A 


BEFO ca 

04360 

RET 7 


pef i 72 febf 

04770 

LD 'ZEIC,HN>,A 


BEF4 C9 

04380 

043°0 

RET 

• 


BEF5 A7 

04400 Nt 1 1 

AND A 


BEF6 C8 

04410 

RET Z 


BEF7 FE41 

04420 

CP ' A’ 


PFF9 3814 

04470 

JR C, Nt 7 


BEFB FE5B 

04440 

CP ' 2 ’ +1 


BEFO 3832 

04450 

JP C, LETTER 


BEFF 28 OE 

04460 

JR I , Nt 3 


BF01 FEfaO 

04470 

CP öOH 


BF03 3822 

0448 r ' 

JP C, Ft E> 1 


BF05 2608 

044°0 

JR 2, Nt 7 

' 

BF07 FE7B 

04500 

CP ’r’+l 


BF 09 3816 

04510 

JR C, LETTER . 

i - * * ( wt i* \ 

BF OB FE 80 

04520 

CP 128 


BFOD 3S1A 

04570 

JR C . Ft EY2 


BFOF 211840 

04540 Nt 3 

LD HL, 401 SH 


BF12 CB7E 

04550 

BIT 7, (HL.j 


BF 14 2028 

04560 

JR NZ, Nh CTRL 


BF 16 4F 

04570 

L.B C,A 

;1EH UND 5BH VERTAUSCHEN 

BF 17 E6BF 

04580 

AND OBFH 

; 'SHIFT A UND AJ 

BF 19 FE1B 

04590 

C,P 1BH 


BF1B 79 

04600 

LD A,C 


BFJC 2002 

04610 

JR NZ , E. 1 


BF1E EE40 

04620 

<0P 40H 


BF 20 C° 

04630 El 
04640 

RET 

4 

9 


BF21 2JF8BF 

04650 LETTER 

LD HL, SL 


BF24 AE 

04660 

xOR (HL? 


BF25 18E8 

04670 

04680 

JR NK3 
* 


BF27 C61C 

04690 Ft EVI 

ADD A, 7CH--4-5CH 

t - * * * * - * * V F ■ i / 'ft * t * v * * * * 

BF 29 D677 

04" 7 00 Ft EY2 

SUB 77H 


BF2B 214947 

04710 

LD HL, 4349H 


BF2E 110700 

04720 

LD DE, 7 


BF31 19 

04730 FL2 

ADD HL, DE 


BF32 3D 

04740 

DEC A ! 


BF33 20FC 

04750 

JR NZ, FK2 


BF35 22FABF 

04760 

L.D (Ft EYZGt ,HL 


BF 38 7B 

04770 

LD A,E 


BF 39 32F9BF 

04780 

LD <Ft-EYZL/,A 


EF3C 1812 

04790 
04800 ; 

JR NKC1 

i 


BF7E CBBE 

04810 NKCTRL. 

RES 7, (HL) 


BF40 FE 30 

04820 

CP '0* 


BF 42 2811 

04830 

JR Z , Nt C2 , 


BF44 FE31 

04840 

CP ' r 


BF46 D8 

04850 

RET C 


BF47 FE39 

04860 

CP ' 9’ 


BF49 3014 

04870 

JR NC, Nt C3 


BF4B D631 

04 380 

SUB '1' 


BF4D CB2136 

04890 

CALL 3621H 1 
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BF50 

AF 

BF51 

32FEBF 

BF54 

C9 

BF55 

3AF8BF 

BF58 

EE20 

Bf SA 

32F8BF 

BF5D 

18F1 

BF5F 

21D8BF 

PFö2 

01 08»">0 

BF 65 

C5 

BF60 

EDB1 

BF68 

Ci 

BF69 

CO 

BF6A 

09 

BF6B 

2B 

BFtC 

7E 

BF6D 

C9 

BFfcE 

3A30F3 

BF71 

FE 12 

BF73 

200D 

EF75 

CDA938 

BF78 

3A40FS 

BF 7 B 

CB 5 7 

BF7D 

28F9 

BF7F 

CD BO 38 

BFS2 

213640 

BF85 

0101F8 

BFS8 

AF 

BF89 

S 7 

BFSA 

32FFBF 

BF8D 

OA 

BF8E 

5F 

BF3F 

AE 

BF90 

73 

BF91 

202B 

BF97 

3 AFF BF 

BF96 

B3 

BF*7 

32FFBF 

BF9A 

14 

BF9B 

2C 

BF9C 

CB01 

BF g E 

30ED 

BFAO 

2AFCBF 

BF A3 

2B 

BFA4 

7C 

BFA5 

B5 

BFA6 

3E00 

BFA3 

200 B 

BFAA 

3AFFBF 

BFAD 

A7 

BF AE 

2805 

BF BO 

2E80 

BFB2 

3AFEBF 

BFB5 

22FCBF 

BFB8 

A7 

BFB9 

CA0F04 

BFBC 

El 

BFBD 

C9 


04900 Nt CI 
04° Hi 
04920 

04970 Nt C2 

04940 

04950 

04960 

04970 Hk.CZ 
04980 ; 

04990 C0N7EP 

05000 

05010 

05020 

05030 

05040 

05050 

05060 

05070 

05080 i 

05090 REPEAT 

05 1 00 

05 t 10 

05 t 20 

05170 REP 12 
05140 
05150 
05160 

05170 REP 11 

05180 

05 190 

05200 

05210 

05220 REP1 

05270 

05240 

05250 

05260 

05270 

05280 

05290 

05300 

05310 

05320 

05330 

05340 

05750 

05360 

05370 

05380 

05390 

05400 

05410 

05420 

05430 

05440 

05450 RETREP 

05460 

05470 

05480 

05490 


VOR A 

L.D (ZEICHNE A 
PET 

LD A, - SU 
X0P 20H 
LD 'SL',A 
JR NI CI 
LD HL , CT AB 1 

LD PC, TABL.EN 
PUSH EC 
CP IR 
POP BC 
RET NZ 
ADD HL, Bl 
DEC HL 
LD A, 'HL , 1 

PCT 

* 1 » p 

LD A, '.OF88OM1 
CP J2H 
JP NZ, REF’i 1 
CALL 3PA9H 
LD A, "'CS40H- 
BIT 2, A 
JR Z,PF.R12 
CALL 3SB0H 
LD HL, LAST 
LD BCJE'/BD 
XQP A 
LD D, A 
LD 'TM,' « A 
LD A, (BC) 

LD E,A 
XOR (HL* 

LD (HL’,E 
JR NZ, REP2 
LD A, k TM ) 

GR E 

LD <TM),A 
INC D 
INC L. 

RLC C 

JR NC, REP 1 
LD HL, 1 ZAEHLR) 
DEC HL 
LD A, H 
OP L 
LD A, 0 

JR NZ, RETREP 
LD A, (TM! 

AND A 

JR 2, RETREP 
LD L, RFREQU 
LD A, { ZEICHN' 
LD t ZAEHLR), HL 
AND A 
JP Z , 40FH 
POP HL 
RET 


-* r t M 




; LFT ZTEN T A 5 T A T U PS T A T US 
; *40"'6-403C) MIT ZUSTAND 

i DER TASTATUPVEPGLEICHEN 

t AENDEPUMb' 1 * " ‘ ^ ' *•' ' 
; JA 


; ALLE ZEILEN OERGL. 
; JA 

i =0"' 


; ZAEHL.EF NEU SETZEN 
ZEICHEN IN Akt-U 
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BFBE 

5F 

05500 

05510 

REF‘2 

• 

* 

LD E,A ; ENTPRELLUNG i 

BF BF 

C5 

05520 


PUSH BC , ; 19 MS WARTEN 

BFCO 

0 1 0005 

05530 


LD BC , 500H ; 

BFC3 

CD6000 

05540 


CALL DELAY 

BFC6 

01 

05550 


POP BC 

BFC7 

OA 

05560 


LD A, (BC) ; TASTE NOCH IMMER GEDR. 

BFCS 

A3 

05570 


AND E 

BFC9 

2803 

05580 


JR Z,REP3 jNEIN 

BFCB 

CD1A04 

05590 


CALL 4 IAH 

BFCE 

210004 

05600 

REF’3 

LD HL, EZEIT j ZAEHLER MIT EINSATZZEIT 

BFD1 

22FCBF 

05610 


LD ( ZAEHLR > , HL. 

BFD4 

32FEBF 

05620 


LD ( ZEICHN) , A 

BFB7 

09 

05630 


RET 

BFD8 

41 

05640 

05650 

CTAB1 

* 

5 

DEFM ’ AOUSaous' 

BFEO 

5B 

05660 

CTAB2 

DEFM J Äöüfiäöür^ , 

BFE8 

01 

05670 

CTAB3 

DEFB 1 

BFE9 

02 

05680 


DEFB 2 

BFEA 

03 

05690 


DEFB 3 

BFEB 

08 

05700 


DEFB 8 

BFEC 

05 

05710 


DEFB 5 

BFEB 

06 

05720 


DEFB 6 - " ■' ’■ ' 

BFEE 

07 

05730 


DEFB 7 

BFEF 

08 

05740 


DEFB 8 

BFFO 

5B 

05750 

CTAB4 

DEFM *' Aöüf>äöüi5 J 

0008 


05760 

TABLEN 

EGU 8 ; CTAB2-CTAB1 

BFF8 

20 

05770 

05780 

• 

SL 

DEFB 20H 

BFF9 

00 

05790 

FKEYZL 

DEFB 0 

BFFA 

0000 

05800 

FKEYZG 

DEFW 0 

BFFC 

0000 

05810 

ZAEHLR 

DEFW 0 

BFFE 

00 

05820 

ZEICHN 

DEFB 0 

BFFF 

00 

05830 

TM 

DEFB 0 

BC50 


05840 

05850 

■ 

) 

END INIT . 


00000 TOTAL ERRORS 

24324 TEXT AREA BYTES LEFT 


i 


f 

j 

I 


i 


* 
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2.2.1 Basi cerwei terung COLBAS 


COLBAS bietet dem Cassettenbenutzer viele der 
Möglichkeiten, die sonst erst dem Diskettenbenutzer 
offenstehen . 

Es ist folgendes unter COLBAS möglich: 


- Fl ex i bl es Zusammen 1 aden versch i edener • - ’* i * * 

Bas i cprogramme von Cassette 

- Suchen von Zei chenf o 1 gen im Bas i cprogrammtext 

- USR0 bis USR9 

- DEFUSR0 bis DEFUSR9 

- DEFFN 

- LIME INPUT 

- MID$ als Anweisung 

- INSTR 

- RESTORE n 

- Formatiertes Listen von Programmen 

- Entfernen unnötiger Leerzeichen und REM's 


Funktion : 


Die meisten Erweiterungen von NEUBAS werden über die 
unbenutzten Diskbasicbef ehlsworte auf gerufen . Diese 
Anbindung ist ähnlich wie beim Programm PACK beschrieben 
programmiert » aber hier noch einfacher . Beim Programm PACK 
mußte in der Diskettenversion der Befehl KILL zum Löschen 
von Files erhalten bleiben. Daher wird nach Auftreten des 
KILL zunächst das Argument geprüft. Uenn es eine 
Zeichenkette ist, wird ein File gelöscht, andernfalls der 
Programmtext gepackt . 

Der RESTORE N- Bef eh 1 wird durch Usr änderung des RST 
10H-Uektors implementiert. Dazu wird der RST 10H-Aufruf in 
der I nterpretat i onssch 1 ei f e , kurz vor dem Anspringen der 
einzelnen Routinen für die verschiedenen Anweisungen 
abgefangen . 
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HERGE und RSET (ZUSAHHENLADEN HEHRERER BAS I CPROGRAHHE) 


Hit HERGE und RSET ui rd es mögl ich mehrere schon auf 
Cassette vorhandene Bas icprog ramme zusammen i n den Rechner 
zu br i ngen . Dies eruei st sich als besonders uertvol 1 , uenn 
Sie in neu zu schrei bende Programme bere i ts vorhandene 
Programmsegmente (insbesondere Unterprogramme aus einer 
schon vorhandenen Unterprogrammsammlung) einfügen möchten. 


Durch Eingabe von * HERGE * wird das momentan im Rechner 
bef i ndl i che Bas i cprogramm "uns i chtbar " gemacht . Der 
Spe i eher sehe int 1 eer zu se i n , uovon Sie sich durch E i ngabe 
von 'LIST' überzeugen können. Sie können nun das zueite 
Programm uie geuohnt mitte 1 s * CLO AD * laden. Danach steht 
Ihnen dieses zueite Programm so im Rechner zur Verfügung, 
uie Sie es nach normalen Lade Vorgängen geuohnt sind . Das 
heißt. Sie können das Programm laufen lassen, listen ... 

Um nun das "unsichtbare” Programm zusammen mit dem 
zugeladen zueiten Programm zum Vorschein zu bringen, müssen 
Sie dafür sorgen , daß die niedrigste Zei lennummer des 
zueiten Programmes größer ist als die höchste Zeilennummer 
des ersten < momentan "uns i chtbar en ” ) Programmes . Falls di es 
nicht ohnehin der Fall ist, kann mit Hilfe des 'NAHE* 
Befehls leicht dafür gesorgt uerden , daß das zueite 
Programm die erforderlichen höheren Zeilennummern erhält. 
(Bei dieser Umnumerierung ist es auch möglich, ein 
zugel adenes Unterprogramm nach trag 1 i ch an das auf ruf ende 
Programm anzupassen. ) 

Durch E i ngabe von * RSET * uird nun das erste Programm neben 
dem Zueiten uieder "sichtbar" gemacht. Es stehen nun beide 
Programme zusammen im Speicher . 

Nach diesem Verfahren können Sie nun noch beliebig viele 
uei tere Programme zu 1 aden . 


Solange sich ein "uns i chtbar es” Programm i m Rechner 
bef i ndet erschei nt zusätz lieh zu jeder * NEUBAS READY * 
Hel düng der Text ’ * HERGE HODE * ’ auf dem B i ldsch i rm . Dies 
so 11 Sie an das noch vorhandene , "unsichtbare" Programm 
er Innern . 


1 


I 
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GET ( SUCHEN VON ZEICHENFOLGEN 111 BAS I CPROGRAtlHTEXT ) 


Hit GET können be liebige Zei chenf o 1 gen im Basi cprogrammtext 
gesucht werden . Dies ist nütz 1 ich wenn Sie z . B . festste I 1 en 
wollen ob, bzu . wo bestimmte Variablennamen im Basicprograrmntext 
benutzt werden. Oder Sie möchten in einem längeren 
Basi cprogrammtext eine best immte Ste Ile, deren Ze i 1 ennummer Sie 
nicht kennen, schnell finden. 


Sie geben * GET ' ein, und der Rechner me 1 det s i ch mit 7 STRING- ' . 
Nun können Sie die Ze i chenf o 1 ge , nach we 1 eher gesucht werden 
soll, eingeben. Hierbei müssen zwei Fälle unterschieden werden: 

1 . * - ■ h - - ’ + - ■. T ' - r i t ■'**- ' v * * r ”, 

1) Sie suchen eine Variable (z.B. AS$, N, N%) oder 
e inen Ausdruck mit Basi csch 1 üsse 1 Worten 
Cz.B. GOTO 280, RETURN) . In diesem Fall geben Sie 
die gesuchte Ze i chenf ol ge ein, und sch 1 i eßen mit 
7 ENTER 7 ab. 


2 ) Sie suchen Zei chenf o 1 gen , die sich innerhalb von 

Anf ührungsstr ichen ( ” ) , in DAT A-Anwe i sungen oder i n 
Bemerkungen (hinter REH bzw . ') befinden. Hier geben 

Sie vor der ei gent 1 i chen Zeichenfolge 7 @@ 7 ein 
und schließen dann mit 'ENTER* ab. 

( Denn Sie a 1 so z.B. die Zeichenfolge "COPYRIGHT BY ” 
suchen, geben sie ' 00COPYR I GHT BY ' ein.) 


In beiden Fällen wird der Rechner darauf hin die Zeilennummern, 
i n we 1 chen die gesuchte Zeichenfol ge auftritt, ausgeben . So 1 1 te 
die Zeichenfolge nicht im Basicprogrammtext vorhanden sein, so 
w i rd dies anstel 1 e der Zei 1 ennummer n gemeldet . 


Bemerkung : Tritt die gesuchte Zeichenfolge in ei ner Zeile 

mehrma 1 s auf , so wird auch di ese 1 be Ze i 1 ennummer 
entsprechend oft ausgegeben. 

Dabei ist zu beachten, daß z.B. in der Zeichen- 
folge ”****” die Zeichenfolge ”**” dreimal vor- 
kommt ♦ 

Bei 1) wird aus dem Suchtext vor dem Vergleich mit 
dem Bas i eprogramm der Zw i schencode geb i 1 det . 

Bei 2) wird der Suchtext nicht verändert. 
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USR0 bis USR9 (AUFRUF VON 10 VERSCHIEDENEN HASCH I NENPROGR AHNEN ) 


Dar es b i sl ang für Sie nur mög 1 ich ein Haschi nen programm 
aus e l nem Basicprogramm heraus aufzurufen , so können unter 
NEUBAS bis zu 10 verschidene Haschinenprogramme aufrufen 
werden . 

Die Arbeitsweise der USR0 bis USR9 Funktionen ist genauso» 
wie in Ihrem Basichandbuch unter USR erläutert. 


So rufen Sie z.B. mit 


A=USR7(0) 

* 

das 7. Haschinenprogramm auf. 


DEFUSR0 bis DEFUSR9 (STARTADRESSEN VON HASCH I NENPROGR AHHEN > 


Bislang mußte die Startadresse des Hasch i nenprogramms » 
welches mittels USR aufgerufen werden sollte, in zwei 
spezi ei 1 e Spe i cherze llen M gePOKEt” werden . 

Diese unpraktische Vorgehensweise wird unter NEUBAS durch 
die Befehle DEFUSR0 bis DEFUSR9 ersetzt. 


Sie geben z.B. 

DEFUSR7= 15360 (oder hexadezimal DEFUSR7=&3C00 ) 


ein und weisen damit dem 
Startadresse 15360 ( hex 3C00 ) zu . 


7 


Haschi nenprogramm die 
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DEFFN CVOn ANUENDER DEFINIERBARE FUNKTIONEN) 


Hit DEFFN können Sie Funktionen» welche häufig in einem 
Programm benutzt werden, einmal definieren und dann im 
Laufe des Programms beliebig oft durch den Funktionsnamen 
auf ruf en . 


DEFFN hat folgendes Format: 


DEFFN FKTN CVARLIST) = AUSDRUCK 

FKTN ist der Name der Funktion, die hier definiert wird. 
Für di esen Namen gelten die g 1 e i chen Kr i ter ien wie für 
Var iab 1 ennamen . (Also erstes Zeichen alphabetisch» alle 
weiteren alphanumerisch, nur die ersten beiden Zeichen 
werden vom Bas i c i nterpreter berücksichtigt) 

Ueiterhin muß im Funktionsnamen gekennzeichnet werden, von 
welchem Typ das Ergebniss der Funktion sein soll. Die 
erfolgt wiederum nach den gleichen Kriterien, wie sie schon 
von den Variablennamen her bekannt sind. CAlso % für 
ganzzahlige, i für einfachgenaue, # für doppeltgenaue und $ 
für Str i ng-Ergebn i sse . Ueglassen ergibt einfachgenaue 
Ergebn i sse . ) 


VARLIST besteht aus sovielen Variablen (jeweils durch Komma 
getrennt), wie der Ausdruck auf der rechten Seite an 
Argumenten benöt i gt . 


AUSDRUCK 
Anue isung 
getrennte 


ist die Funktion selbst. Sie darf nur eine 
von einer zeile Länge sein. (Durch Doppelpunkt 
Anweisungen sind nicht erlaubt.) 


Zum besseren Verständnis folgende Beispiele: 


10 DEFFN CUBIC (X) = X*X*X 

2B INPUT A 

30 B = FN CUBIC (A) 

40 PRINT B 

In 10 wird die einfache Funktion CUBIC definiert. Sie 
liefert ein Ergebniss einfacher Genauigkeit und benötigt 
nur eine Variable in der Var i ab 1 en 1 i ste , da sie nur ein 
Argument ( X ) im Ausdruck hat . 

In 30 wird die Funktion CUBIC aufgerufen. Hier ist das 
Argument die Variable A. (Es könnte dort aber auch jeder 
beliebige Ausdruck einfacher Genauigkeit stehen.) 


Oder : 


10 DEFFN TE$ CX$,Y$) = X$+”/”+Y$ 
20 INPUT "VORUAHL" ; V$ 

30 INPUT ”RUFNUNHER” ; R$ 

40 G$ = FN TE$ CV$,R$) 

50 PRINT G$ 


Hier wird eine Funktion mit zwei Str i ngargumenten 
definiert, welche in diesem Fall auch wieder ein 
Str i ngergebn i ss liefert. (Uas nicht immer der Fall sein 
muß ! ) 
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LINE INPUT C ZE I LENE INGABE ) 


Mit dem norma len I NPUT Bef eh 1 i st es n i cht mögl i ch in eine 
Stringvariablen Kommata oder Anf ührungsstr i che einzugeben. 
Außerdem werden ei ngegebene , f ührende Leerze i chen n i cht in die 
Str i ngvar i bl e übernommen. Weiterhin wurde jede Eingabe mittels 
Ausgabe eines * 7 * auf gef ordert . Dadurch verbot sich die 
Anwendung des I NPUT Bef eh ls in vielen Fällen. CI nsbesondere 
Textverarbei tungsprog ramme i n Basic ! ) 

LINE INPUT umgeht diese Probleme und hat f o 1 gendes Format : 

LINE INPUT »TEXT"; VAR* 

mit: TEXT ist ein beliebiger Text» welcher vor der Eingabe 

auf den Bi 1 dsch i rm geschr i eben wird. (Kann ei nsch 1 i eß- 
1 ich nachfolgendem Semikolon entfal len! ) 

VAR* ist die Stringvariable, welche die Eingabe über- 
ehmen so 1 1 . 


Kurzes Beispiel : 


10 LINE INPUT »IHRE EINGABE BITTE!»; A* 
20 PRINT A* 


Hier erscheint nach der Ausgabe des Textes nur der Cursor in 
der nächsten Zeile. Ckein Fragezeichen mehr!) 

Sie können nun bei iebige Zeichen eingeben C incl . führender 
Leerzeichen , Kommata , Anführungsstriche usw . ) bis Sie mittels 
< ENTER > die Eingabe absch 1 ießen . 


MID* CALS STATEMENT) 


MID* als Statement ist eine Art Umkehrung der MID* Funktion. 
Mit dem MID* Statement wird ein Tei 1 ei nes Strings durch einen 
anderen Str i ng ersetzt . 

Das Format ist wie folgt: 

M I D*< VAR* , nl , n2)=AUSDRUCK* 


mit: 


VAR* ist die zu verändernde Stringvariable. 
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nl ist die Position, ab welcher die Veränderung in 
VAR$ beignnen soll. (Erste Position im String ist 1!> 

n2 gibt die Anzahl der zu verändernden Zeichen an. 

Kann auch entfal len. (einschl . vorstehendem Komma ! ) 

Dann wird AUDRUCKS soweit eingesetzt, daß VAR$ ihre 
ursprüngliche Länge beibehält. 

AUSDRUCKS ist ein beliebiger Stringausdruck. 

Beachten Sie, daß die Ersetzung immer nur soweit erfolgt, daß 
die Länge des zu verändernden Str i ng erhalten bleibt! 


Für folgende Beispiele wird vorausgesetzt: A$= " ABCDEFG" 


MID$( A$, 2,2)=” 12345” 
NID$(A$,5) =”12345” 
NID$(A$,4»4)=”” 


1 iefert: A$=” A 12DEFG” 

” A$= ” ABCD 123” 

” A$= "ABCDEFG ” 


INSTR (STRINGSUCH FUNKTION) 


Nit INSTR können Sie Teilstrings innerhalb eines String 
suchen . 

INSTR hat folgendes Format: 

INSTR (n , AUSDRUCK 1 $ , AUSDRUCK2$) 

mit: n ist die Position in AUSDRUCK1#, ab welcher gesucht 

werden soll. Kann entfallen, (einschl. nachfolgendem 
Komma) In diesem Fall wird ab der 1. Position gesucht. 

AUSDRUCK1$ ist der Stringausdruck, in welchem gesucht 
werden so 1 1 . 

AUSDRUCK2$ ist der Stringausdruck, nach welchem 
gesucht werden sol 1 . 

Der Aufruf der INSTR Funktion liefert als Ergebniss die 
Pos i t i on , ab welcher der gesuchte Str ing zuerst im zu 
durchsuchenden Str ing auftri tt . Ui rd der Teil str ing nicht 
gefunden , so erg i bt sich 0 als Ergebn i ss . 


Bei den folgenden Be ispielen wird wi eder A$= "ABCDEFG" 

vorausgesetzt : 

1 i ef ert 5 

0 

e 


I NSTR ( A$ , ”EF ” ) 
INSTR(A$, "234”) 
INSTR(3, A$ , "AB”) 


tt 
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RESTORE H 


fl i t RESTORE N i st d i rekte Zugriff auf jede be 1 i eb i ge 
DATA-Zeile möglich. N muß nicht uie bei GOTO, GOSUB , usu. eine 
Ganzzah 1 konstante se i n , sondern kann ein bei i eb i ger Ausdruck 
sein. Die RESTORE— Anue i sung ohne Zeilennummer ist natürlich 
auch weiterhin verfügbar . 

Be i spi e 1 : 

10 DATA 10 
20 DATA 20 
30 DATA 30 

40 RESTORE: READ A: PRINT A; 

50 RESTORE 30: READ A: PRINT A; 

60 RESTORE 3*10: READ A: PRINT A; 

ergibt be i m Starten mit RUN : 

1 * * ' i ' * i * * 

10 30 30 


NAHE und LSET (formatiertes Li sten ) 


Diese Befehle entsprechen in Funktion und Format dem LIST bzu. 
LLIST Befehl. Aber es erfolgt eine formatierte Ausgabe auf 
Bi ldsch i rm bzu . Drucker , das heißt: 

- Text beg i nnt i mmer erst ab Spalte 6 (davor stehen nur 
Zei 1 ennummern ! ) 

- Vor und hinter jedem BASIC-Schl Usseluort wird ein 

Leerzeichen 

eingefügt 

- Nach jedem * : * wird eine neue Ausgabezeile begonnen 

- IF-THEN-ELSE Strukturen werden ei ngerückt 


I n dieser Form ausgegeben s i nd auch Programme » ue 1 che durch 
e i nen * PACKER * gegangen s i nd , wieder akzeptabe 1 lesbar . 
Formatierte Listings vom Drucker eigenen sich ausgezeichnet 
als endgü 1 t i ge Dokumentationen von BAS IC-Programmen . 
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KILL C PACKER > 


Ein PACKER entfernt aus Bas icprogrammen überf 1 üss i ge 
Leerzeichen und Kommentare ohne an der Funktion des Programmes 
etwas zu ändern . 

Der Aufruf erfolgt mit: 

KILL < ZEILE < - ZEILE >> 

Durch d i esen Bef eh 1 werden im ganzen Programmtext C - oder 
be i Angabe der opt i ona 1 en Parameter , i m spez i f i erten Bere ich - 
) alle Leerzeichen und Kommentare entfernt. 


Beim Packen des Programmes werden alle Vorsichtsmaßnahmen 
getroffen, um die Funktion des Programmes nicht zu 
bee i nträcht i gen : 

1) Reine Kommentarze i 1 en werden nur dann vollständig entfernt, 
wenn sie nicht ein Sprungziel bil den . Andernfalls blei ben 
Zeilennummer und REH erhalten. 


10 GOTO 30 
20 REH ****** 
30 REH ENDE 


10 GOTO30 
30 REH 


2> In Hockkommata eingeschlossene Zeichenketten werden vom 
Packen nicht tangiert. 

10 PRINT »EINGABE 10 PR I NT ”E I NGABE 


3) Nicht in Hochkommata eingeschlossene DATA-Strings werden so 
gepackt , daß sich der durch READ ge 1 esene Str i ng n i cht ändert . 

10 DATA 1 > 2 , 3 , 4 10 DAT A 1 ,2 ,3 ,4 

In sei tenen Fällen, die von PACK nicht erkannt werden , kann 
das Packen unter ungünstigen Voraussetzungen zu einer Änderung 
der Funktion des Programmes führen. Ein Beispiel soll das 
Problem verdeutl ichen : 

10 IF A=F OR 1=10 THEN 100 
wird zu 

10 I FA=FORI = 1 0THEN 100 

gepackt. Uird die Zeile 10 nach dem Packen editiert und 
dadurch neu in den Zu i schencode übersetzt , dann wird das 
Keyword FOR erkannt und eine Ausführung der Zeile ergäbe einen 
Syntax— Error . 

Vor und nach dem Packen uird der Spe i eher bedarf des 
Programmes ausgegeben , um eine Abschätzung des eingesparten 
Spei eher p 1 atzes zu ermög 1 i chen . 
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00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 


********************************************* 
***** COLBAS VERSION 1.0 ***** 

***** 21.10.83 ***** 

********************************************* 


; ASEG 

***** INITIALISIERUNG DER BASIC ZEIGER DURCH DIREKTES ÜBERSCHREIBEN 


4155 


00240 

□RG 

4155H 

4155 

C35FB7 

00250 
00260 ; 

JP 

FN 

415B 


00270 

ORG 

415BH 

415B 

C3A8B6 

00280 
00290 ; 

JP 

DEF 

417F 


00300 

ORG 

417FH 

417F 

C35ABC 

00310 
00320 ; 

JP 

GET 

41SB 


00330 

' ORG 

418BH 

418B 

C350B8 

00340 
00350 ; 

JP 

MERGE 

419A 


00360 

ORG 

419AH 

419A 

C37DBS 

00370 

JP 

RSET 

419D 

C333B9 

00380 
00390 ; 

JP 

INSTR 

41 A3 


00400 

ORG 

41A3H 

41 A3 

C309B9 

00410 
00420 ; 

JP 

LINE 

418E 


00430 

ORG 

418EH 

418E 

C3D8B9 

00440 
00450 ; 

JP 

FL IST 

4197 


00460 

ORG 

4197H 

4197 

C3E7B9 

00470 
00480 ; 

JP 

FLLIST 

4191 


00490 

ORG 

KILLV 

4191 

C3DABD 

00500 

JP 

KILL 


; MITTELS "NAME" LIST AUF BILDSCHIRM 


; MITTELS "LSET" LIST AUF DRUCKER 


00510 

00520 

00530 

00540 




Itrn 


* , v 




00550 

• 





00560 

; ***** 

INITIALISIEREN Df. R 



00570 

* 





00580 

• 

5 



B67C 


00590 


ORG 

0B67CH 



00600 

« 

j 



B67C 

2A0440 

00610 

INIT 

LD 

HL, (RST10V) 

B67F 

22B6B9 

00620 


LD 

(CHV10+1 ) , HL 

B682 

21A5B9 

00630 


LD 

HL, RESTN 

B685 

220440 

00640 


LD 

(RST10V) ,HL ; 



00650 

* 

* 



B688 

3EC3 

00660 


LD 

A , GC3H 



00670 

w 



B68A 

32A941 

00680 


LD 

<41 A9H) , A 

B68D 

210DB7 

00690 


LD 

HL,USR 


; OPCODE FUER JP NACH A 
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B L*<> 

22 AA* 1 1 

mm 

00710 i 

LP 

' 41 AAH) , HL 

B fc?3 

32AC41 

<‘>0720 
OO^C*’ i 
00740 s 
00750 ; 
00760 i 

LD 

* 41 ACH) , A 

B6 g 6 

2126B8 

00770 

LD 

HL, READY 

Bb99 

22AD41 

00730 
00790 ; 

LD 

(41ADH) ,HL 

Pö?C 

32D941 

003 00 

L.D 

(41D g H) , A 

Bö?F 

2193B9 

008 i 0 

LD 

HL, MID 

B6A2 

22DA41 

008 20 
00830 ; 

LD 

(4ir.ftH‘ , HL. 

B6A5 

C3191A 

00840 
00950 ; 

JP 

1A19H 



00960 ; 
0037n ; 
00B8Q ; 
00890 s 
00900 ; 
00910 
00920 i 
0 ( " ,Q 3 ( .’ ; * 
’X>94‘‘* ; 
00 g 50 ; 
00960 ; 

f i » + i + ^ . ' « 

iCSEG 

PROGRAMM! oR^EP 
* 

013B 


00970 5MERR 
00980 ; 

0o990 i 

01000 ;***** 

01010 i 

EOU 

DEFFN 

013BH ; ANSPRUNGADR 

UMD DEFUSR BEFEHLE 

B6A8 

FEC1 

01020 DEF 

CP 

0C1H 

B6AA 

282C 

01030 
01040 i 

3R 

Z, DEFUSR 

BSAC 

CDCCB6 

01050 DEFFM 

CALL 

DEFFM l 

B6AF 

CD2B29 

01060 

CALL 

2828H 

B6B2 

EB 

01070 

EX 

DE, HL 

B6B3 

73 

01080 

LD 

* HL > , E 

B6B4 


01090 

INC 

ML 

B6B5 

72 

01 100 

LD 

'HL' ,D 

B6B6 

EB 

01110 

EY 

DE, HL 

BöB7 

7E 

m 01120 

LD 

A, 'HL* 

B6B8 

FE23 

‘ 01130 

CP 

28H 

B6BA 

C2051F 

01140 

JP 

MZ , 1F05H 

B6BD 

D7 

01150 

RST 

16 

B6BE 

CD0D26 

01160 DEFFN2 

CALL 

2öODH 

B6C1 

7E 

01170 

LD 

A, < HL) 

B6C2 

FE29 

01 ISO 

CP 

29H 

B6C4 

CA051F 

01190 

JF 

Z, 1F05H 

B6C 7 

CF 

01200 

RST 

8 

B6C8 

2C 

01210 

DEFB 

? * 
* 

BfaC9 

C3PEB6 

01220 

JP 

DEFFN2 

B6CC 

CF 

01230 DEFFM 1 

PST 

8 

B6CD 

BE 

01240 

DEFB 

OBEH ; FN TOKEN 

B6CE 

3E80 

01250 

LD 

A, 80H 

Bö DO 

32DC40 

01260 

LD 

(40DCH) , A 

B6D3 

Bö 

01270 

OR 

(HL) 

BöD4 

47 

01280 

LD 

B, A 

B6D5 

C31226 

01290 

JP 

2612H 


F’UEP SN ERR 


» i * ■ 
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B6D8 

CDE7B6 

01300 ; 

01310 ÜEFUSR 

CALL 

DEFUS1 

B6DB 

D5 

01320 

PUSH 

DE 

B6DC 

CF 

01330 

RST 

8 

B6DD 

D5 

01340 

DEFB 

0D5H 

B6DE 

CD022B 

01350 

CALL 

2B02H 

B6E1 

E3 

01360 

EX 

(SP) ,HL 

B6E2 

73 

01370 

LB 

(HL) ,E 

B6E3 

23 

01380 

INC 

HL 

B6E4 

72 

01390 

LD 

<HL) , D 

B6E5 

El 

01400 

POP 

HL 

B6E6 

C9 

01410 

RET 


B6E7 

D7 

01420 DEFUS1 

RST 

16 

B6E8 

010000 

01430 

LB 

BC,0 

B6EB 

3005 

01440 

JR 

NC, DEFUS2 

B6ED 

D630 

01450 

SUB 

30H 

B6EF 

17 

01460 

RLA 


B6F0 

4F 

01470 

LD 

C, A 

B6F 1 

D7 

01480 

RST 

16 

B6F2 

EB 

01490 DEFUS2 

EX 

DE, HL 

B6F3 

21F9B6 

01500 

LD 

HL, STORE 

B6F6 

09 

01510 

ADD 

HL, BC 

B6F7 

EB 

01520 

EX 

DE, HL 

B6F8 

C9 

01530 

RET 


B6F9 

4A1E 

01540 ; 
01550 STORE 

DEFW 

1E4AH 

B6FB 

A41E 

01560 

DEFW 

1EA4H 

B6FD 

A41E 

01570 

DEFW 

1EA4H 

B6FF 

A41E 

01580 

DEFW 

1EA4H 

B701 

A4 IE 

01590 

DEFW 

1EA4H 

B703 

A41E 

01600 

DEFW 

1EA4H 

B705 

A41E 

01610 

DEFW 

1EA4H 

B707 

A41E 

01620 

DEFW 

1EA4H 

B709 

A41E 

01630 

DEFW 

1EA4H 

B70B 

A41E 

01640 

DEFW 

1EA4H 

B70D 

Fl 

01650 ; 

01660 ; 

01670 ;**#** 
01680 ; 

01690 USR 

USR FUNKTION 
POP AF 

B70E 

CDE7B6 

01700 

CALL 

DEFUS1 

B71 1 

D5 

01710 

PUSH 

DE 

B712 

CD2C25 

01720 

CALL 

252CH 

B71S 

E3 

01730 

EX 

(SP), HL 

B716 

4E 

01740 

LD 

C, (HL) 

B717 

23 

01750 

INC 

HL 

B718 

46 

01760 

LD 

B, (HL) 

B719 

21E726 

01770 

LD 

HL, 26E7H 

B71C 

E5 

01780 

PUSH 

HL 

B71D 

C5 

01790 

PUSH 

BC 

B71E 

3AAF40 

01800 

LD 

A, (40AFH) 

B721 

F5 

01810 

PUSH 

AF 

B722 

FE 03 

01820 

CP 

3 

B724 

CCDA29 

01830 

CALL 

Z, 29DAH 

B727 

Fl 

01840 

POP 

AF 

B728 

EB 

01850 

EX 

DE, HL 

B729 

212141 

01860 

LD 

HL, 4121H 

B72C 

C9 

01870 

RET 




01880 ; 
01890 ; 




TOKEN 


; FC ERROR ALS DEFAULTADR. 


*■ 
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01900 ; ***** 

FN FUNKTION 



01910 ; 



B72D 

1E2E 

01920 AS2 

LD 

E, 2EH 

B72F 

C3A219 

01930 

JP 

19A2H 

B732 

3AAF40 

01940 ASS 

LD 

A, (40AFH) 

B735 

3D 

01950 

DEC 

A 

B736 

3D 

01960 

DEC 

A 

B737 

3D 

01970 

DEC 

A 

B738 

B7 

01980 

OR 

A 

B739 

37 

01990 

SCF 


B73A 

CA93B7 

02000 

JP 

Z, AS6 

B73D 

4E 

02010 

LD 

C, (HL) 

B73E 

23 

02020 

INC 

HL 

B73F 

46 

02030 

LD 

B, (HL) 

B740 

C5 

02040 

PUSH 

BC 

B74i 

FA5CB7 

02050 

JP 

M, AS7 

B744 

07 

02060 ... 

INC 

HL 

B745 

4E 

‘ 02070 

LD 

C, (HL) 

B746 

23 

02080 

INC 

HL 

B747 

46 

02090 

LD 

B, (HL) 

B748 

C5 

02100 

PUSH 

BC 

B749 

E25CB7 

02110 

JP 

P0.AS7 

B74C 

23 

02120 

INC 

HL 

B74D 

DA53B7 

02130 

JP 

C, ASB 

B750 

2HD41 

02140 

LD 

HL , 4 1 1 DH 

B753 

4E 

02150 ASS 

LD 

C, (HL) 

B754 

23 

02160 

INC 

HL 

B755 

46 

02170 

LD 

B, (HL) 

B756 

23 

02180 

INC 

HL 

B757 

C5 

02190 

PUSH 

BC 

B758 

4E 

02200 

LD 

C, (HL) 

B759 

07 
- > 

02210 

INC 

HL 

B75A 

46 

02220 

LD 

B, (HL) 

B75B 

C5 

02230 

PUSH 

BC 

B75C 

DA9DB7 

02240 AS7 

JP 

C, AS9 

B75F 

CDCCB6 

02250 FN 

CALL 

DEFFNi 

B762 

3AAF40 

02260 

LD 

A, ( 40AFH) 

B765 

B7 

02270 

OR 

A 

B766 

FS 

02280 

PUSH 

AF 

B767 

22F340 

02290 

LD 

(40F3H) , HL 

B76A 

EB 

02300 

EX 

DE, HL 

B76B 

7E 

02310 

LD 

A, (HL) 

B76C 

23 

02320 

INC 

HL 

B76D 

66 

02330 

LD 

H, (HL) 

B76E 

6F 

02340 

LD 

L, A 

B76F 

B4 

02350 

OR 

H 

B770 

CA2DB7 

02360 

JP 

Z, AS2 

B773 

7E 

02370 

LD 

A, (HL) 

B774 

FE29 

02380 

CP 

28H 

B776 

C2C6B7 

02390 

JP 

NZ, AS3+1 

B779 

D7 

02400 

RST 

16 

B77A 

22D840 

02410 

LD 

(40D8H) , HL 

B77D 

1802 

02420 

JR 

AS4 

B77F 

CF 

02430 AS 10 

RST 

8 

B780 

2C 

02440 

INC 

L 

B781 

CEO 4 

02450 AS 4 

LD 

C , 04 

B7B3 

CD6319 

02460 

CALL 

1963H 

B786 

3E80 

02470 

LD 

A, 80H 

B788 

32DC4Ö 

02480 

LD 

(40DCH) , A 

B78B 

CD0D26 

02490 

CALL 

260DH 
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B78E EB 

02500 

EX 

DE, HL 

B78F 37 

02510 

SCF 


B790 C332B7 

02520 AS 11 

JP 

ASS 

B793 D22324 

02530 AS6 

JP 

MC, 2423H 

B796 D5 

02540 

PUSH 

DE 

B7 q 7 EB 

02550 

EX 

DE, HL 

B798 CD882S 

02560 

CALL 

2888H 

B7°B Dl 

02570 

POP 

DE 

B79C AF 

02580 

XÜR 

A 

B79D E5 

02590 A5 Q 

PUSH 

HL 

B79E F5 

02600 

PUSH 

AF 

B79F EB 

02610 

EX 

DE, HL 

B7A0 7E 

02620 

LD 

A, (HL,* 

B7A1 FE29 

02630 

CP 

29H 

B7A3 20DA 

02640 

JR 

NZ, AS10 

B 7 A5 2AF340 

02650 

LD 

HL, (40F3H) 

B7AS CF 

02660 

RST 

8 

E7A9 28E5 

02670 

JR 

Z, AS11 

B7AB 2AD840 

02680 

LD 

Hl, (40D8H) 

B7AE CD0D26 

02690 AS 13 

CALL 

2 60 DH 

B7B1 E3 

02700 

EX 

(SP) , HL 

B7B2 CD2B1F 

02710 

CALL 

1F2BH 

B7B5 7E 

02720 

LD 

A, (HL,< 

B7B6 FE29 

02730 

CP 

2 q H 

B7B8 2S07 

02740 

JR 

Z , A512 

B7BA CF 

02750 

RST 

8 

B 7 BB 2C 

02760 

INC 

L 

B7BC E7. 

02770 

EX 

(SP: ,HL 

B7BD CF 

02780 

RST 

8 

B7BE 2C 

027 Q 0 

INC 

L 

B7BF 18ED 

02800 

JP 

AS 13 

B^Cl D7 

02810 AS 12 

RST 

16 

B7C2 E3 

02820 

EX 

(SP: , HL 

B7C7 CF 

02830 

RST 

B 

B7C4 29 

02840 

ADD 

HL, HL 

B7C5 3ED5 

02850 AS 3 

LD 

A, 0D5H 

B7C7 CF 

0286-:* 

RST 

8 

B7C8 D5 

02870 

PUSH 

DE 

B7C9 CD3723 

02880 

CALL 

2337H 

B7CC 2B 

028°0 

DEC 

HL 

B 7 CD D7 

02900 

RST 

16 

B7CE C29" 7 19 

02910 

JP 

NZ, 1 9 q 7H 

B 7 D1 E7 

02920 

RST 

32 

P7D2 282F 

02930 

JR 

Z, ATI 

B7D4 Dl 

02940 AT6 

POP 

DE 

p-'DS Fl 

02950 AT4 

POP 

AF 

B7B6 283F 

02960 

JR 

Z , AT2 

B7DS 30 IC 

02 Q 70 

JR 

NC, AT3 

B7DA El 

02 Q 80 

POP 

HL 

P^DB CI 

02990 

POP 

BC 

B7DC 70 

03000 

LD 

(HL) ,B 

B7DD 2B 

03010 

DEC 

HL 

B7DE 71 

03020 

LD 

(HL) ,C 

B^DF FAD5B' 7 

03030 

JP 

M, AT4 

B^EC 2B 

03040 

DEC 

HL 

B7E3 Ci 

03050 

POP 

BC 

B7E4 70 

03060 

LD 

(Hl) ,B 

B7E5 2B 

03070 

DEC 

HL. 

B7E6 71 

03080 

LD 

(HL» ,C 

B?E7 E2D5B7 

030*0 

JP 

PO, AT4 
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B^ea 2B 

03100 


DEC 

HL 

B7EB CI 

03110 


POP 

BC 

B^EC 70 

03120 


LD 

(HL) ,B 

B7ED 2P 

03130 


DEC 

HL 

B 7 EE 71 

03140 


LD 

(HL> ,C 

B7EF 2B 

<*>3 1 50 


DEC 

HL 

B7F0 CI 

03160 


POP 

BC 

P7F1 70 

03 J 70 


LD 

(HL) ,B 

B 7 F2 2B 

03180 


DEC 

HL 

B7F3 71 

03190 


LD 

'HL) ,C 

B7F4 18BF 

03200 


JR 

ATA 

B7F6 D5 

03210 AT3 

PUSH 

DE 

B7F7 F5 

03220 


PUSH 

AF 

B7FB E"' 

03230 


PST 


B7F9 11D340 

03240 


LD 

DE, 40D3H 

BTC CC8S28 

03250 


CALL 

2 , 2888H 

B7FF Fl 

03260 


POP 

AF 

B300 C31A2B 

03270 


JP 

281 AH 

B803 2AB340 

03280 ATI 

LD 

HL, ( 40B3H) 

BS06 EP 

03290 


EX 

DE, HL 

B807 2A2141 

03300 


LD 

HL, (4121H* 

BSOA DF 

03310 


RST 

24 

B80B 3805 

03320 


JR 

C, ATS 

B80D CDA 32 B 

03330 


CALL 

2843H 

B810 1SC2 

03340 


JR 

AT6 

B812 Dl 

03350 ATS 

POP 

DE 

B813 21D340 

03360 


LD 

HL, 40D3H 

B816 E5 

03370 


PUSH 

HL 

B817 CDF529 

03380 AT2 

CALL 

29F5H 

B81A 7E 

03390 


LD 

A, (HL) 

B81B 22B340 

03400 


LD 

(40B3H) , HL 

B81E El 

03410 


POP 

HL 

B81F 77 

03420 


LD 

(HL) ,A 

B820 23 

03430 


INC 

HL 

B821 71 

03440 


LD 

(HL) ,C 

B822 23 

03450 

1 

INC 

HL - • 

B823 70 

03460 


LD 

‘HL) , B 

B82A 18AF 

03470 


JR 

AT4 


03430 ; 





03490 ; 





03500 ; 

***** 

NEUE READ /-MELDUNG 


03510 ; 




B826 C DF 920 

03520 READY 

CALL 

20F9H 

BS2 Q 2133B8 

03530 


LD 

HL, 61 1 

BS2C CP*238 

03540 


CALL 

3S92H 

B82F El 

03550 


POP 

HL 

B830 C32B1A 

03560 


JP 

1A2BH 

B833 43 

03570 611 

DEFM 

' COLBfiS READY' 

BS3F OD 

03580 


DEFB 

ODH 

B840 00 

03590 612 

DEFB 

0 

B841 20 

03ö00 


DEFM 

* MERGE MODE * 

B84E OD 

03610 


DEFB 

ODH 

B84F 00 

03620 


DEFB 

0 


03630 





03640 





03650 

***** 

MERGE 

BEFEHL 


03660 




B850 3A40B8 

03670 MERGE 

LD 

A, ' GI2) 

B853 B7 

036 80 


OR 

A 

B854 2006 

03690 


JR 

NZ , ME 1 


! 

1 
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B856 

2AA440 

03 7 00 



L.D 

HL, * 40A4H ) 





B859 

22 g lB8 

037 iO 



LD 

(BASBEG? , HL 





BB5C 

EB5BF g 40 

03720 

ME1 

LD 

DE, { 40F9H ’ 





B 860 

1B 

03730 



DEC 

DE 





B86l 

D5 

03740 



F'UEH 

DE 





B862 

CI 

03750 



POP 

BC 





P863 

1 B 

03760 



DEC 

DE 





B864 

1B 

037 7 0 



DEC 

DE 





B865 

1B 

03780 



DEC 

DE 





B866 

1A 

03790 



LD 

A, 'DE? 





B867 

B 7 

03800 



OF; 

A 





B868 

2005 

03810 



JR 

NZ , ME2 





B86A 

ED43F g 40 

03820 



LD 

(40F g H) , BC 





BB6E 

1B 

03830 



DEC 

DE 





PS6F 

13 

03840 

f- 

1E2 

INC 

DE 





B870 

1 3 

03850 



INC 

DE 





B87 1 

FD53A440 

03860 



L.D 

( 40A4H ) , DE 





B8 7 5 

3E2A 

03870 



LD 

A, 42 





B877 

3240B8 

038 80 



LD 

( G 1 2 ) , A 





B8 7 A 

C316BB 

038 g 0 



JP 

RETURN 







03°00 











039 1 0 









t* 


03920 


mn 

RSET BEFEHL 

1 W 

J r - 4i h ' L 

€ 1 - 1 

■y * - * 



03930 









P87P 

3A4' 'PS 

03° 40 

F 

(SET 

LD 

A, (GI2> 





BP 80 


03 g 50 



OP 

A 





B8S1 

2 8 OE' 

03 g 60 



JR 

Z, RS1 





B883 

2A91B8 

03970 



LD 

HL, (BASBEG * 





P086 

22A440 

03 g 80 



LD 

<40A4H ' , HL 





BS89 

3E00 

039 g 0 



LD 

A, 0 





BSßB 

3240BB 

04000 



LD 

(Gl 2) , A 





BÖSE 

C316&D 

04010 

F 

*S1 

JP 

RETURN 







04020 









0002 


04030 

] 

3ASBEG 

DEFS 

r-* 







04040 






















04060 











04070 











04080 











04ü g 0 


***** 

MI Dt ALS 

STATEMENT 







04100 









es 5 ?:' 

D7 

04110 

f 

11 D 

PST 

ION 


1 1'J.* ’t 

r 

- c. f 

B8 C 4 

CF 

04120 



R3T 

09 H 





BS95 

2B 

04130 



DE FM 






B8°6 

CD03B g 

04140 



CALL 

MI Dt 


* 



B89 g 

E5 

04150 



PUSH 

HL 





B8 g A 

D5 

04160 



PUSH 

DE 





B89P 

EB 

041 7 ü 



EX 

DE, HL 





BÖ9C 


04 1 80 



INC 

HL 





B89D 

5E 

041 g 0 



LD 

E, - HL.' 





BS g E 


0420 1 *' 



INC 

HL 





P8°F 

56 

0421 0 



LD 

D, 'HL.) 





BS'AO 

2AA040 

04220 



LD 

HL, '40A0H' 





B8A3 

DF 

04230 



R5T 

1SH 





PSA4 

El 

04240 



POP 

HL 





B8A5 

ES 

04250 



PUSH 

HL 





B8A6 

D4FBB8 

04260 



CALL 

NC, MID5 





P8A? 

EJ 

04270 



POP 

HL 





BSAA 

E3 

0428':’ 



E> 

(SP», HL 





B8AB 

CF 

04290 



RST 

OBH 
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B8AC 2C 

04300 

INC 

L 

B8AD CD1C2B 

04310 

CALL 

28 ICH 

B8BÜ B7 

04320 

OR 

A 

BBB1 CA4A1E 

04330 

JP 

Z, 1E4AH 

B8B4 F5 

04340 

PUSH 

AF 

B8B5 7E 

04350 

LD 

A, (HL) 

B8B6 FE2C 

04360 

CP 

2CH 

B8B8 3EFF 

04370 

LD 

A, OFFH 

B8BA 2004 

04380 

JR 

NZ, MIDI 

B8BC D7 

04390 

RST 

10H 

B8BD CB1C2B 

04400 

CALL 

2B1CH 

B8C0 F5 

04410 MIDI 

PUSH 

AF 

B8C1 CF 

04420 

RST 

08H 

B8C2 2? 

04430 

DEFM 

’ ) ’ 

B9C3 CF 

04440 

RST 

OBH 

B8C4 D5 

04450 

DEFB 

0D5H 

B8C5 CD3723 

04460 

CALL 

2337H 

BBC8 E5 

04470 

PUSH 

HL 

B8C9 CDD729 

04480 

CALL 

29D7H 

B8CC Bl 

04490 

POP 

DE 

B9CD CI 

04500 

POP 

BC 

B8CE Fl 

04510 

POP 

AF 

B8CF 4F 

04520 

LD 

C, A 

BSDO EB 

04530 

EX 

DE, HL 

B8D1 E3 

04540 

EX 

(SP) , HL 

B8D2 D5 

04550 

PUSH 

DE 

BSD 3 7E 

04560 

LD 

A, (HL) 

B8D4 23 

04570 

INC 

HL 

B8D5 5E 

04580 

LD 

E, (HL) 

B8D6 23 

04590 

INC 

HL 

B8D7 56 

04600 

LD 

D, (HL) 

B8D8 6? 

04610 

L.D 

L,C 

B8D9 2600 

04620 

LD 

H,0 

B8DB 19 

04630 

ADD 

HL, DE 

B8DC 2B 

04640 

DEC 

HL 

B8DD 91 

04650 

SUB 

c 

B8DE DA4A1E 

04660 

JP 

C, 1E4AH 

B8E1 3C 

04670 

INC 

A 

B8E2 B8 

04680 

CP 

e 

B8E3 3001 

04690 

JR 

NC, MID2 

B8E5 47 

04700 

LD 

B, A 

BSE6 E3 

04710 MID2 

EX 

(SP> ,HL 

B8E7 7E 

04720 

LD 

A, (HL) 

B8E8 23 

04730 

INC 

HL 

B8E9 5E 

04740 

LD 

E, (HL) 

B8EA 23 

04750 

INC 

HL 

B8EB 56 

04760 

LD 

D, (HL) 

B8EC El 

04770 

POP 

HL. 

B8ED B8 

04780 

CP 

B 

BBEE 3801 

04790 

JR 

C, MID3 

B8F0 78 

04800 

LD 

A, B 

B8F1 CDF6BS 

04810 MID3 

CALL 

MID4 

B8F4 El 

04820 

POP 

HL 

BSF5 C9 

04830 

RET 



04840 ; 

04S50 ; UNTERPROGRAMME 


B8F6 B7 

04860 ; 
04870 MID4 

OR 

A 

B8F7 C2D609 

04880 

JP 

NZ , 09D6H 

B8FA C9 

04890 

RET 





; " = " TOKEN 


’ 1 ••H’V 1 < w 


r 
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B8FB 

ES 

04900 MID5 

PUSH 

HL 

B8FC 

CD432S 

04910 

CALL 

2843H 

BSFF 

El 

04° 20 

POP 

HL 

B900 

C3D30 Q 

04930 

JP 

09D3H 

B903 

CD0D26 

04940 MIDfc 

CALL 

2fcODH 

B g 06 

C3F40A 

04950 
04960 ; 

04970 ; 

04980 ; 

04990 ;***** 
05000 ; 

JP 0AF4H 

LINE ItJPUT BEFEHL 

B90 Q 

CF 

05010 LINE 

RST 

08 H 

B°OA 

89 

05020 

DEFB 

89H 

B c 0B 

CD 28 28 

05030 

CALL 

2S28H 

B90E 

7E 

05040 

LD 

A, (HL* 

B90F 

FE 23 

05050 

CP 


B91 1 

CA3B01 

05060 

JF 

7 , SNEFR 

B Q 14 

CDCD21 

05070 

CALL 

21CDH 

B917 

CD0D26 

0508'** 

CALL 

260DH 

B91A 

CDF40A 

05090 

CALL 

0AF4H 

B91D 

ES 

05100 

PUSH 

HL 

B91E 

D5 

05110 

PUSH 

DE 

B91F 

CD6103 

05120 ,, , 

CALL 

036 1H 

B922 

38 OA 

05130 

JP 

C, LI NE 3 

B924 

0600 

05140 

LD 

B, 0 

B926 

CD6828 

05150 

CALL 

2S6SH 

B929 

El 

05160 

POP 

HL 

B92A 

AF 

05170 

XOR 

A 

B92B 

C3331F 

05180 

JP 

1F33H 

B92E 

Fl 

05190 LINE1 

POP 

AF 

B92F 

Fl 

05200 

POP 

AF 

B930 

C3BE1D 

05210 
05220 : 

05230 ; 

05240 s 
05250 ;*m* 
05260 ; 

JP 

INSTR 

1DBEH 

BEFEHL 

B933 

rr 

05270 IN5TR 

RST 

10H 

B934 

C 03523 

05280 

CALL 

2335H 

B Q 37 

E* 7 

05290 

RST 

2 OH 

B938 

3E01 

05300 

LD 

A , 0 1 H 

B93A 

C41F2B 

05310 

CALL 

NZ , 2B1FH 

B93D 

B7 

05320 

OR 

A 

B93E 

CA4A1E 

05730 

JP 

Z, 1E4AH 

B941 

FS 

05340 

PUSH 

AF 

B^42 

E7 

05750 

PST 

2 OH 

B g 43 

C4A0B° 

05360 

CALL 

NZ, INSTF.8 

B Q 4fc 

CDF40A 

053‘ 7 0 

CALL 

0AF4H 

B949 

ED4B2141 

05300 

LD 

BC, f 4 1 2 1 H ,* 

B g 4D 

CS 

05390 

PUSH 

BC 

B94E 

CDA0B9 

05400 

CALL 

INSTF8 

B951 

CF 

05410 

RST 

08H 

B952 

29 

05420 

DEFM 

' ) ’ 

B Q 53 

E3 

05430 

EX 

t BP J , HL 

B954 

ES 

05440 

PUSH 

HL 

B g 55 

CDD~29 

05450 

CALL 

2°D* 7 H 

B958 

E3 

05460 

EX 

(SP) ,HL 

B Q 5? 

CDDD29 

05470 

CALL 

2°DDH 

B95C 

Dl 

05480 

POP 

DE 

B g 5D 

CI 

05490 

POP 

BC 


; "INPUT" -TO* EN 


; ER FÜR AUSSPRUNG 
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B95E 

Fl 

05500 


POP 

AF 

B95F 

C5 

05510 


PUSH 

BC 

B960 

F5 

05520 


PUSH 

AF 

B961 

D5 

05530 


PUSH 

DE 

B962 

3D 

05540 


DEC 

A 

B963 

46 

05550 


LD 

B, (HL) 

B964 

23 

05560 


INC 

HL 

B965 

5E 

05570 


LD 

E, (HL) 

B966 

23 

05580 


INC 

HL 

B967 

56 

05590 


LD 

D. (HL) 

B968 

6F 

05600 


LD 

L,A 

B969 

2600 

05610 


LD 

H, 0 

B96B 

19 

05620 


ADD 

HL, DE 

B96C 

E3 

05630 


EX 

(SP) ,HL 

B96D 

4E 

05640 


LD 

C, (HL) 

B96E 

23 

05650 


INC 

HL 

B96F 

5E 

05660 


LD 

E, (HL) 

B970 

23 

05670 


INC 

HL 

B971 

56 

05680 


LD 

D, (HL) 

B972 

El 

05690 


POP 

HL 

B973 

81 

05700 


ADD 

A,C 

B974 

381D 

05710 


JR 

C, INSTR4 

B976 

ED44 

05720 

IMST RI 

NEG 


B978 

80 

05730 


ADD 

fi,B 

B979 

47 

05740 


LD 

B, A ’ 

B97A 

3017 

05750 


JR 

MC, INSTR4 

B97C 

04 

05760 


INC 

B 

B97D 

ES 

05770 

INS TR 2 

PUSH 

HL 

B97E 

D5 

05780 


PUSH 

DE 

B97F 

C5 

05790 


PUSH 

BC 

B980 

OC 

05800 


INC 

C 

B981 

0D 

05810 

IMS TR 3 

DEC 

c 

B982 

2813 

05820 


JR 

Z , INSTR5 

B984 

1A 

05830 


LD 

A, (DE) 

B985 

BE 

05840 


CP 

(HL) 

B986 

13 

05850 

- , 

. INC 

DE 

B987 

23 

05860 


INC 

HL 

B988 

28F7 

05870 


JR 

Z, INSTR3 

B98A 

CI 

05880 


POP 

BC 

B98B 

Di 

05890 


POP 

DE 

B98C 

El 

05900 


POP 

HL 

B98D 

Fi 

05910 


POP 

AF 

B98E 

3C 

05920 


INC 

A 

B98F 

23 

05930 


INC 

HL 

B990 

FS 

05940 


PUSH 

AF 

B991 

1 OEA 

05950 


DJNZ 

INSTR2 

B993 

Fl 

05960 

INSTR4 

POP 

AF 

B994 

AF 

05970 


XOR 

A 

B995 

1804 

05980 


JR 

IN3TR6 

B997 

CI 

05990 

IMSTR5 

POP 

BC 

B998 

Dl 

(06000 


POP 

DE 

B999 

El 

06010 


POP 

HL 

B99A 

Fl 

06020 


POP 

AF 

B99B 

CDF827 

06030 

INSTR6 

CALL 

27F8H 

B99E 

El 

(06040 

IMSTR7 

POP 

HL 

B99F 

C9 

06050 


RET 


B9A0 

CF 

06060 

INST RS 

RST 

08 H 

B9A1 

2C 

06070 


DE FM 

* 

B9A2 

w%J V / 

06080 


JP 

2337H 



(06090 

< 

% 






L X * 
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06100 

06110 

06120 






06130 


i ** RESTOPE N **, 18.2.80 -V 1.1> 



Go 140 


; BEARBEITET FUER F.DTASM, 4.°. 81 



06150 


* 

9 




06 1 60 


i BASIC-UNTERPROGRAMMEi 

) P7S 


06170 CHRGE1 

EQU 1D78H 

ZEICHENHOLROUTINE 

2 BOI 


06180 IMTEXP 

EQU 2B01H 

ZEILENNUMMER ERMITTELN 

1B2C 


06190 SLIME 

EQU 1B2CH ; 

ZEILE IN RAM SUCHEN 

06CC 


06200 WSTART 

EQU 06CCH 

ZURUEO ZUM BASIC 

idie: 


06210 EXEC 

EQU 1D1EH ! 

BAS IC PRO GRAMM AUSFUEHRE.N 



06220 


■ 




06230 


; BASIC-ZEIGER: 


4 OFF 


06240 BATAZ 

EQU 40FFH 

DATAZEIGER 

4004 


06250 RST100 

EQU 4004H ; RST lOH-VEl’TQR 



06260 


• 

* 




06270 


S 

* 



06280 

062*0 

06300 


B 

* 

i RESTORE N 

B 

* 


B9A5 

E3 

06310 RE5TN 

EX (SP * , HL 

AUFRUF VON 1DXXH? 

B?Ao 

7C 

06320 


LD A, H 


B9A7 

FE1D 

06330 


CP 1DH 


B9A9 

2810 

06340 


JR Z, REST NI 

NEIN, RST 10H AUSF. 

B9AB 

FE 20 

06350 


CP 20H 


B9AD 

2005 

06360 


JR NZ, NINT 


B9AF 

7D 

063^0 


LD A,L 


B9B0 

FE 50 

06390 


CP 50H 


B9B2 

2S0 -7 

06390 


JR Z, RESTN1 


B9B4 

E3 

Oö 400 MINT 

Ex (SP), HL 


B9B5 

C30000 

06410 CHV10 

JP 0 


B9B8 

El 

06420 NINT1 

POP HL 


B Q B Q 

18FA 

06430 


JR CHV10 


B9BB 

E3 

06440 RESTN1 

EX (SP), HL 


B9BC 

E5 

06450 


PUSH HL 

j * * . 

B9BD 

D7 

06460 


RST 10H 


B p BE 

FE90 

06470 


CP 90H 

= RE STORE"’ 

B9C0 

20F6 

0ö48ü 


JR NZ,NINT1 

NE I N , RST i OH 'OHNE INC HL> 

B Q C2 

CI 

064*0 


POP BC 


B9C3 

D7 

06500 


RST lüH 


B9C4 

CA91 1 D 

'»6510 


JP Z, 1D91H 


B9C7 

CD022B 

06520 


CALL INTEXP+l 

ZNP DECODIEREN 

B Q CA 

E5 

06530 


PUSH HL 

PQINTFR RETTEN 

B9CE' 

CD2C1B 

06540 


CALI SLINE 

ZEILENADRESSE 

B Q CF. 

OB 

06550 


DEC BC 


B9CF 

E043FE40 

06560 


LD ' DATAZ) , BC 

;NACH DATAZEIGER 

B9D3 

El 

06570 


POP HL 

; POINTER ZURUECK 

B9B4 

CI 

06580 


POP BC 

iPUEU SPRUNG ADR. 

E9D5 

C31E1D 

06590 


JP EXEC 

iNAECHSTE ; ZEILENAD*E5S 



06600 

***** 

FORMATIERTES lISTING FuR COLOUR-GENIE ***** 



0661 0 

***** 

VERSION 1.0 

04.11.33 ***** 



06620 

06630 

***** 

'O 1983 BV M. 

BuNING ***** 



06640 

06650 

***** 

ROM-ADRESSEN 


JB10 


06660 

..ARG 

EQU 1B10H 

; LIST ARGUMENTE AUSWERTEN 

20FE 


06670 

CR 

EQU 2'! FEH 

; GIBT CR AUS 

032 A 


06680 OUTCHF 

EQU 03 2 AH 

; GIFT ZEICHEN IN A AUS 

1A 1 9 


066*0 HAUPTS 

EQU 1A1SH 

; BASIC HAUPTSCHLEIFE 
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OFAF 

06700 

PRZNR 

EQU 

OFAFH 

; ZEILENNUMMER 

IN HL AUSGEBEN 

1D9B 

06710 

BREAK 

EQU 

1D9BH 

; TASTENDRUCK E 

AUSWERTEN 

39 AD 

06720 

TAB AMR 

EQU 

39ADH 

; K EYWDRDTABELLENANFANG NACH HL 


06^30 

06740 

06750 

06760 



06770 

; ***** 

SYSTEM- 

-RAM-ADRESSEN 


06780 

• 




40A7 

06790 

BUFANF 

EDU 

40A7H 

ENTHAELT DEN ZEIGER AUF DEN BUFFER ANF. 

409C 

06800 

F' VF LAG 

EQU 

409CH 

FLAG < 0=BI LOSCH IRM, 1=DRUCK ER) 

40A6 

06810 

VPOS 

EQU 

40A6H 

BILDSCHIRM-SPALTEN-P05ITI0N 

409B 

06820 

PROS 

EQU 

409BH 

i DRUCK ER- SP AL TEN -POS I T I ON 

40A2 

06830 

AK TZ NR 

EQU 

40A2H 

! SPEICHERZELLEN FuR AKTUELLE ZNR 

40EC 

06840 

REFZNR 

EQU 

40ECH 

[SPEICHERZELLEN FuR BEZUG 


0fc850 ; 

06860 ; 

068" 7 0 ; 

06880 ; 

06890 ;#**** BENUTZTE TOK EN 
06900 ; 


008 F 


06910 

IF 

EQU 

OBFH; IF-TOKEN 

OOFB 


06920 

RFMAP 

EQU 

OFBH; APOSTROPH REMARK* 

0000 


06930 

ZENDE 

EQU 

OH; ZEILENENDE 

0081 


06940 

FCGLQU 

EQU 

081H; FCOLOUR 

OOFF 


06 Q 50 

DGPTQK 

EQU 

OFFH; ERSTES BvTE EINES DOPPELTOKEN 



06960 

m- 

* 





06970 

1 





06980 

; ***** 

START 

DER FL IST-ROUT INE 



06990 

• 

% 



B g DB 

DD214FBC 

07000 

FL.IST 

LD 

I X, VAF:ADR ;IX ZEIGT AUF DEN VAR I ABLENBERE I ! 

B9DC 

DD360327 

07010 


LD 

iIX+3>,39 ; LETZTE SPALTE AUF BILDSCHIRM 

B Q EO 

DP3t>0603 

07020 


LD 

f I X+6) ,3; MAXIMALE E INRuCK UMG AUF BILSSCHIRM 

B9E4 

C3F8B9 

07030 


JP 

FLIST1 ; EIN5PPUNG IN GEMEINSAMEN TEIL 


07040 

07050 

07060 

07070 


***** START DER FLLIST-ROUTINE 


B9E' 7 

DD214FBC 

07080 FLLIST 

LD 

I X , VARADR 

; IX ZEIGT AUF VARIABLENBEREICH 

B9EB 

DD36034F 

07090 

LD 

(IX+3>,79 

; LETZTE SPALTE AUF DRUCKER 

B Q EF 

DD36060A 

07 1 00 

LD 

(IX+6) , 10 

; MAXIMALE EIHRuCK UNG AUF DRUCKER 

B9F3 

3E01 

07110 

LD 

A, 1 ; i=DRUCK ER 

B9F5 

329C4Ö 

07120 

LD 

(P VFL AG) , A 

; AUSGABE AUF DRUCKER SCHALTEN 


07130 

07140 

07150 

07160 




07170 

; ***** 

GEMEINSAMER TEIL 

FuR FORMATIERTFS LIST U. LLIST 



07180 

■ 

% 





B9F8 

CI 

07190 

FLIST1 

POP 

BC ; RuCK SPRUNGADPESSE ENTFERNEN 


B9F9 

CD 1 0 1 B 

07200 


CALL 

LARG; 1. 

ZEILENADR. NACH BC, 2. ZNR 

AUF STACK 

B9FC 

C5 

07210 


PUSH 

BC ; 1. 

ZEILEN5DRESSE RETTEN 


B9FD 

21FFFF 

07220 

NExTL 

LD 

HL, OFFFFH ; BIREK TMODE SETZEN 


BAOO 

22A240 

07230 


LD 

(AK TZ NFU 

, HL ; UND IN ENTSPRECHENDEN 

ZELLEN ABSPEICHERN 

BA03 

El 

07240 


POP 

HL ; 1. 

ZEILENADRESSE NACH HL 


BA04 

Dt 

07250 


POP 

DE ;2. Z 

NP NACH DE 


BA05 

4E 

07260 


LD 

C, (HL) 

; ZEILENZEIGER LADEN 


BA06 


07270 


INC 

HL 



BA07 

46 

07280 


LD 

B, (HL) 

; (MSB) 


BAOB 

23 

07290 


INC 

HL 





2 


BA09 

BAOA 

BAOB 

BAOE 
BA11 
BA12 
BAI 3 
BA14 
BA15 
BA16 
BA17 
BAI 8 
BA1 Q 
BA1A 
BA1B 
BA1E 
BA1F 
BA20 
BA21 
BA22 
BA25 

BA28 

BA2C 

BA30 

BA34 

BA36 

BA37 

BA38 

BA39 

BA3B 

BA3D 

BA3E 

BA40 

BA43 

BA45 

BA47 

BA48 

BA4A 

BA4C 

BA4F 

BA51 
BAS 2 


BASS 

BA57 

BA59 

BASC 

BA5D 

BASE 
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78 

07300 

Bl 

07310 

CA191A 

07320 


07330 

CD9B1D 

07340 

C5 

07350 

4E 

07360 

23 

07370 

46 

07380 

T 

^ J 

07390 

C5 

07400 

E3 

07410 

EB 

07420 

DF 

07430 

CI 

07440 

DA181A 

07450 

E3 

07460 

E5 

07470 

C5 

07480 

EB 

07490 

22EC40 

07500 

CDAFOF 

07510 


07520 

DD360000 

07530 

BD360500 

0^540 

ED4BA740 

07550 

16FF 

07560 

El 

07570 

2B 

07580 


07590 

D7 

07600 

FE3A 

07610 

2001 

07620 

D7 

07630 

FE 00 

07640 

CA12BB 

07650 

FE3A 

07660 

200A 

07670 


07680 


07690 

FE3A 

07700 

28FB 

07710 

CD38BB 

07720 

18ED 

07730 


07740 

A7 

07750 

F2FFBA 

07760 


07770 


07780 


07790 


<‘*7800 


07810 


07820 

FE 9 3 

07830 

2015 

07840 


07850 

CDF9BB 

0" 7 860 


07870 

7E 

07880 

FEFB 

07390 




FLIST2 

FL.IST3 


FLIST4 


FL15T5 


; ***** 
1 

TOI 


LD A, B 

OR C ; PROGRAMMENDE ERREICHT 0 

JP Z,HAUPTS+1 ; FALLS JA, DANN ZUR HAUPTSCHLEIFE 

CALL BREAK ; BEHANDLUNG VON TASTENDRUECt EN 

PUSH BC ; NAECHSTE ZEILENADRESSE RETTEN 

LD C, (HL) ; Ah TUELL.E ZNR NACH BC (LSB) 

INC HL 

LD B, (HL) ; (MSB) 

INC HL 

PUSH BC ; ZNR RETTEN 

EX (SP), HL ; ZEIGER RETTEN, ZNR NACH HL 

EX DE, HL ; 2. ZNR NACH HL, ZNR MACH DE 

RST 018H; ZNR 2. ZNR° 

POP BC ; ZEIGER MACH BC. 

JF C, HAUPTS; WENN 2. ZNR ERREICHT DANN HAUPTSCHLEIFE 

EX (SP), HL ; 2. ZNR RETTEN, NAECHSTE ZEILENA. NACH HL 

PUSH HL ; NAECHSTE ZEILENADRESSE RETTEN 

PUSH BC ; ZEIGER RETTEN 

EX DE, HL ; AI TUELLE ZNR NACH HL 

LD (REFZNR) , HL ; ALS BEZUG ABSPEICHERN 

CALL PR ZNR ; ZEILFNNUMMER AUSGEBEN 

LD (IX-KO ,0; INDENT-COUNTER NULL SETZEN 

LD ( IX+5) , 0; THEN-ELSE-FLAb RUECI SETZEN 

LD BC, <BUFANF) ; BC ZEIGT AUF TEXTBUFFER-ANFANG 

LD D, 255 ; TEXTBUFFER-LAENGE AUF 255 SETZEN 

POP HL ; ZEIGER VOM STACK HOLEN 

DEC HL ; ZEIGER VOR 1. TEXTZEICHEN SETZEN 

RST ICH ; LEERZEICHEN AM ZEILEN ANFANG uBERßEHEN 

CP ;IST 1. RELEVANTES ZEICHEN 

JR MZ, FLIST3 ; FALLS NEIN, DANN ZEICHEN AUSWERTEN 

RST ICH ;FALLS JA, DANN ’ uBERGEHEN 

CP ZENDE ; IST ZEILENENDE-ZEICHEN ERREICHT 

JP Z, L INEND; FALLS JA, DANN AUSSFRUNG 

CP ’ : ’ ; IST ZEICHEN ' : ' 

JR NZ , FLIST5 ; FALLS NEIN, DANN WEITERE AUSWERTUNG 

RST 10H ; NAECHSTES RELEVANTES ZEICHEN SUCHEN 

CP ' : ' ; IST ES WIEDER ' : ’ ° 

JR Z,FLIST4; FALLS JA, DANN uBERGEHEN 

CALL PRINT ; FALLS NEIN, DANN TEXTBUFFER AUSGEBEN 

JR FLIST3 ; UND ZEILE WEITER ABARBEITEN 

AND A ; FLAGS GEMAESS A SETZEN 

JP F.NÜTÜI ; FALLS K EIN TOI EN, SPRUNG NACH NOTOK 


TOKEN AUSWERTEN 
CP REM ; REM-TOK EN° 

JR NZ , TOI 3 ; FALLS NICHT, WEITER AUSWERTEN 

CALL TOKBUF ; ' REM ’ AUSGEBEN 

INC HL ; HL ZEIGT AUF NAECHSTES ZEICHEN 

LD A, (HL) ; ZEICHEN MACH A BRINGEN 

CP REMAF ; IST ZEICHEN REMARK -APOSTROPH^' 
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BA60 

2002 

07900 


JR 

N2 , TOI 2 ; FALLS NEIN, DANN WE I TERBF ARBE I TEN 

BA62 


07910 

TOI 1 

INC 

HL ; HL ZEIGT AUF NAECHSTES ZEICHEN 

BA63 

7E 

0^920 


LD 

A, *HL> ; ZEICHEN MACH A BRINGEN 

BA64 

FE 00 

079 30 

TOI' 2 

CP 

ZENDE ; ZEILENENDE ERREICHT"' 

BA66 

CA12BB 

07940 


JP 

Z,LINEND; FALLS JA, DANN AUSSPRUNG 

BA6 q 

CD2DBB 

07950 


CALL 

INBUF ; FALLS NEIN, DANN ZEICHEN NACH BUFFER 

BA6C 

18F4 

07 q 60 

07970 

• 

* 

JR 

TOM; NAECHSTES ZEICHEN BEARBEITEN 

BA6E 

FE88 

07980 

T0K3 

CP 

DATA; DATA-T01 EhP 

BA70 

20 1F 

08000 

• 

4 

JR 

NZ , TOI 6 ; FALLS NEIN, DANN WEITERBEARBEITEN 

BA72 

CDF9BB 

08010 


CALL 

TOI BUF ; ’ DATA ' AUSGEBEN 

BA75 


08020 

TOI 4 

INC 

HL ; HL ZEIGT AUF NAECHSTES ZEICHEN 

BA76 

7E 

08030 


LD 

A, (HL) ; ZEICHEN NACH A 

BA77 

FE22 

08040 


CP 

’ " ’ ; ANFuHRUNGSSTR I CHE" 1 

BA79 

2008 

08050 


JR 

NZ, T0K5 ; FALLS NEIN, ZEICHEN WEITER BEARBEITEN 

BA7B 

CD18BB 

08060 


CALL 

QUOTE ; TEXT HINTER DEN QUOTES BEARBEITEN 

BA7E 

CA12BB 

08070 


JP 

2,LINEND; AUSSPRUNG FALLS ZERO-FLAG GESETZT 

BA81 

18F2 

08080 


JR 

TOI 4; SONST NAECHSTES ZEICHEN BEARBEITEN 

BA83 

FEOO 

08090 

TOI 5 

CP 

ZENDE ; ZEILENENDE ERREICHT"» 

BAB5 

CA12BB 

08100 


JP 

Z, L INEND; FALLS JA, AUSSPRUNG 

BA8B 

FE3A 

08110 


CP 

ERREICHT" 1 

BASA 

28BB 

08120 


JR 

Z, Fl IST4; MULTIPLE AUSBLENDEN, BUFFER AUSGEBEN 

BAeC 

CD2DBB 

08130 


CALL 

INBUF ; ANSONSTEN ZEICHEN IN DEN TEXTBUFFER 

BASF 

1SE4 

08140 

08150 

• 

1 

JR 

TOI 4; NAECHSTES ZEICHEN BEARBEITEN 

BA91 

FE8F 

08160 

— 1 
o 

o 

CP 

IF ; IF-T01 EN" 1 

BA93 

2011 

08170 


JR 

NZ, TOI 7 ; FALLS NICHT, WEITER 

BA95 

DD 3 4 00 

08180 


INC 

(IX+O) ; INDENT-COUNTER INC 

BA98 

DD360801 

08190 


LD 

( IX+8) , 1 ; SET IF- INDENT-FLAG 

BA9C 

DD360A00 

08200 


LD 

(IX+10),0 ; RESET ELSE-FLAb 

BAAO 

DD360901 

08210 


LD 

( I X+9) , 1 ; SET IF-FLAG 

BAA4 

1353 

08220 

08230 

* 

JR 

TOHO ; UND HINTER DIE TO) EN-AUSWERTUNG 

BAA6 

FECA 

08240 

T0K7 

CP 

THEN; THEN-TO) EN° 

BAA8 

20 OB 

08250 


JR 

NZ, T0L8 ; FALLS NICHT, WEITER 

BAAA 

CD38BB 

08260 


CALL 

PRINT ; BUFFER LEEFEN 

BAAD 

DD360501 

08270 


LD 

( I X+5) , 1 ; SET THEN-ELSE-FLAG 

BABi 

DD 36 0900 

08280 

08290 

* 

1 

LD 

( I X+9) ,0; RESET IF-FLAG 

BAB5 

DDCB0946 

08300 

TO) 8 

BIT 

0, (IX+9) ; IF-FLAG RuC)'SESETZT° 

BAB9 

2825 

08310 


JR 

Z , TOI 9 ; FALLS JA, WE I TERAU5WETUNS uBERGEHEN 

BABB 

FEBE 

08320 


CP 

OBEH; BEFEHLS TO) EN" 1 

BABD 

F2E0BA 

08330 


JP 

P, TO) 9 ; FALLS NICHT, WEITERAUSWERTUNG uBERGEHEN 

BACO 

CD38BB 

08340 


CALL 

PRINT ; BUFFER LEEREN 

BAC3 

3E54 

08350 


LD 

A, ’T’ 

BAC5 

CD2DBB 

08360 


CALL 

INBUF 

BAC8 

3E48 

08370 


LD 

A, ’H’ 

BACA 

CD2DBB 

08380 


CALL 

INBUF 

BACD 

3E45 

08390 


LD 

A, ’E’ 

BACF 

CD2DBB 

08400 


CALL 

INBUF 

BAD2 

3E4E 

08410 


LD 

A, ’N’ 

BAD4 

CD2DBB 

08420 


CALL 

INBUF 

BAD7 

7E 

08430 


LD 

A, (HL) ; A) TUELLES TO) 'EN WIEDER NACH A 

BADS 

DD 360501 

08440 


LD 

( IX+5) , 1 ; SET THEN-ELSE-FLAG 

BADC 

DD360900 

08450 

08460 

ft 

4 

LD 

i I X+9) ,0; RESET IF-FLAG 

BAEO 

FE95 

08470 

TOI 9 

CP 

ELSE; ELSE-TO) EN" 1 

BAE2 

2015 

08480 


JR 

NZ , TOKIO; FALLS NICHT, WEITERES uBERGEHEN 

BAE4 

DD360501 

08490 


LD 

( IX+5) , 1 ; SET THEN-ELSE-FLAG 
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BAEB 

DD 3 60 900 

08500 


LD 

f IX+9> ,0 

; RESET IF-FLAG 

BAEC 

DDCB0A46 

08510 


BIT 

0, (IX-t-10) ; ELSE-FLAG GESETZT“’ 

BAFO 

DD360A01 

08520 


LD 

(IX+10) , 

1 ; SET ELSE-FLAG 

BAF4 

2803 

08530 


JR 

Z,TOK 10 

; FALLE NICHT, WEITERE AUSFÜHRUNGEN uBE*G 

BAF6 

DD3500 

08540 


DEC 

ay+O) 

: SONST INDENT --COUNTER DEC 



08550 

P 

* 




BAF9 

CDF*BB 

08560 

TOK 10 

CALL 

TOK BUF 

; TOI EM DECODIEREN U. IN BUFFER SCHREIBEN 

BAFC 

C33DBA 

08570 


JP 

FLIET2 

; NAECHSTES ZEICHEN BEARBEITEN 



08580 

« 

1 






085*0 

• 

* 






08600 

• 

* 






08610 

• 

* 






08620 

; ***** 

NICHT- 

•TOKEN AUSWERTEN 



08630 

m 

1 




BAFF 

FE22 

08640 

NOTEN 

CP 

1 » ’ ; ANF 

uHRUNGSSTRICHE* 

BB01 

2008 

08650 


JR 

NZ , NOTOK 1 ; FALLS NEIN, WEITER AUSWERTEN 



08660 

* 

* 




BB03 

CD13BB 

08670 


CALL 

QUOTE 

; ZEICHEN NACH QUOTE AUSWEPTEH 

BB06 

28 OA 

08 680 


JR 

Z, LI NENE 

»i FALLS ZEPÜ-FLAG GESETZT AUSSPRUNG 

BBOB 

C33DBA 

08fa90 


JP 

FLIST2 

; SONST NAECHSTES ZEICHEN AUSWEPTEN 



03700 

* 

* 




BBOB 


08710 

N0T0F1 

LD 

A, <HL) 

; AKTUELLES ZEICHEN NACH A 

BBOC 

CD2DBB 

08720 


CALL 

INBUF 

; ZEICHEN IN DEN TEXTBUFFER BRINGEN 

BBOF 

C33DBA 

08730 


JP 

FLIST2 

; UND NAECHSTES ZEICHEN AUSWEPTEN 


08 7 40 


BB12 CD38BB 
BB15 C3FDB9 


08750 

08760 

08770 


08780 

08790 


** ** * 


08800 L INEND 
08810 


08820 

08830 

08840 

08850 

0BB60 


AUSSPRUNG BEI ZEILENENDE 

CALL PRINT ; BUFFER AUSDRÜCKEN 

JP NEXTL ; ZUM AUSWERTEN DER NAECHSTEN ZEILE 


OS 8 70 
08880 
08890 
08900 
08910 
08*20 
08930 


tm* VON HAUPT PRO GRAMM ANGESPRUNGENE UNTERPROGRAMME 


***** QUOTE 

***** ‘BEHANDELT TE> T IN ANFuHPUNGSSTRIChENI 


08940 


BB18 

CD2DBB 

08950 

QUOTE 

CALL 

INBUF ; ANFuHRUNGSSTRICHE IN DEM BUFFER BRINGEN 

BB1B 

y 

08*60 


INC 

HL ; AUF NAECHSTES ZEICHEN ZEIGEN 

BB1C 

7E 

08970 


LD 

A, (HL) ; NACH A BRINGEN 

BB1D 

FEOO 

08980 


CP 

ZENBE ; ZEILENENDE ERREICHT“' 

BB1F 

2002 

08990 

09000 

t 

* 

JR 

NZ, QUOTE 1 ; FALLS NEIN, DANN WEITER ARBEITEN 

BB21 

AF 

09010 


XOP 

A ; FALLS JA, DANN END-FLAG (ZERO* SETZEN 

BB22 

C9 

0*020 

09030 

• 

* 

RET 

; UND ZURuD 

BB23 

FE22 

09040 

QUOTE 1 

CP 

T ; WIEDER ANFuHRUNGSSTRICHE^ 

BB25 

20F 1 

0 Q 050 


JR 

NZ, QUOTE; FALlS NEIN, SCHLEIFE 

BB27 

CD2DBB 

0*060 


CALL 

INBUF ; FALLS JA, DANN QUOTES NACH BUFFER 

BB2A 

AF 

090 7 0 


XOR 

A ; A=0 

PB2B 

3C 

'.»9080 


INC 

A ; A= 1 ^DAMIT ZERO-FLAG Rl<C1 GESE t ZT * 

BB2C 

C9 

09090 


RET 

; AUSSPRUNG MIT RuCl GESETZTEM END-FLAG 
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09 1 00 






09110 






09120 






09130 






09140 

***** 

INBUF 




09150 

***** 

's BRINGT 

ZEICHEN IN A IM DEN BUFFER, VERHINDERT 



0 Q 1 60 

;***** 

ÜBERLAUFEN DES BUFFERS) 



09170 




BB2D 

02 

09180 ] 

[NBUF 

LD 

(BC),A ; SCHREIBT A GEMAESS BUFFEPZEIGER EIN 

BB2E 

BD7702 

09190 


LD 

' I X+ 2 ) , A; NACH (IX+2) ALS LETZTES AU5GE6EPENES 

BB31 

7A 

09200 


LD 

A, D ; VERBLEIBENDE BUFFERL AENGE NACH A 

BB32 

FE 00 

09210 


CP 

0 ; IST BUFFER VOLL ' 1 

BB34 

C 8 

09220 


RET 

Z ; FALLS JA, DANN RuD SPRUNG 

BB35 

03 

09230 


INC 

BC ; FALLS NEIN, DANN BUFFERZEIGEP INC. 

BB36 

15 

09240 


DEC 

D ; VERBLEIBENDE BUFFERLAENGE DEC. 

BB37 

C? 

09250 


RET 

; UND RuD SPRINGEN 



09260 






092^0 






09280 






0*5290 






09300 

***** 

PRINT 




0931'*' 

***** 

(GIBT TEXTBUFFER FORMATIERT AUS) 



09320 




BB3B 

F5 

09330 1 

-'RI NT 

PUSH 

AF ; ZEICHEN IN A RETTEN * 1 ' 

BB39 

E5 

09340 


PUSH 

HL ; HL ALS ZEIGER RETTEN 

BB3A 

AF 

09350 


XOR 

A ; A=0 

BB3B 

CB 2 DBB 

09360 


CALL 

INBUF ; BUFFERINHALT MIT 0 AB5CHLI ESSEN 

BB3E 

2AA740 

09370 


LD 

HL, (BUFANF) ; HL ZEIGT AUF BUFFERANFANG 

BB41 

7E 

09330 

PRIKFi 

LD 

A, (HL) ; ZEICHEN NACH A 

BB42 

FE 00 

09390 


CP 

0 ; BUFFER ENDE"’ 

BB44 

284A 

09400 


JR 

Z, PRINTS; FALLS JA, AUSSPRUNG 

BB46 

CDA5BB 

09410 


CALL 

INDCHK ; INDENT COUNTER AUFBEREITEN 

BB49 

3E20 

09420 1 

PR1NT2 

LD 

A,’ ’ LEERZEICHEN NACH A 

BB4B 

CB2A03 

09430 


CALL 

OUTCHF ; UND AUSGEBEN 

BB4E 

C DD DBB 

09440 


CALL 

PVFOS ; BILDSCHIRM ODER DRUD EPSPALTE HOLEN 

BP51 

DD7E01 

09450 


LD 

A, (IX + njUND NACH A BRINGEN 

BB54 

FE06 

OQ4f>0 


CP 

6 ; 6 . SPALTE ERREICHT ' 1 

BB56 

20 F 1 

09470 


JR 

NZ, FRINT2 ; FALLS NEIN, DANN SCHLEIFE 

BB58 

AF 

09480 

PRINT3 

XOR 

A ; A-0 

BB59 

D DB 6 04 

0049 ,} 


OR 

(IX+4> ; IST AUFBEREITETER INDENT COUNTFP ^ 

BB5C 

2808 

09500 


JR 

Z, PF: INT5; FALLS JA, WEITER 

BB5E 

CDEFBB 

09510 


CALL 

BL AN) 5 ; SONST 5 LEERZEICHEN AU5GFBEN 

PB61 

DD 3 504 

09520 


DEC 

(I/+4) ; AUFBEREITETEN INDENT COUNTER DEC . 

BB64 

18F2 

09530 


JR 

PRINT3 ; UND SCHLEIFE 



09540 

• 



BB 66 

7E 

09550 

PRINTS 

LD 

A, (HL) ; ZEICHEN NACH A 

BB67 

FE00 

09560 


CP 

0 ; IST ENDE ERREICHT"' 

PB69 

2S2E 

09570 


JR 

Z,PRINT 9 ; FALLS JA, DANN ZUM AUSSPRUNG 

BB 6 B 

CDDDBB 

09580 


CALL 

PVP OS ; SPALTFNPÜSITIC’N NACH tIX + 1) HOLEN 

BB 6 E 

DD7E01 

09590 


LD 

A , ( I X + 1 ) ; UND NACH A BRINGEN 

BB71 

DDBE03 

09600 


CP 

( I x +3 ) ; IST A GLEICH MAX. SPAL TENFOSITIQN ' 1 

BB74 

2807 

09610 


JR 

Z , PRINT 6 ; FALLS JA, NEUE ZEIlE EINLEITEN 

BB76 

7E 

09620 


LD 

A, (HL) ; A) TUELLES ZEICHEN NACH A 

BB77 

CD2A03 

09630 


CALL 

OUTCHF ; UND ZEICHEN AUSGEBEN 

BB 7 A 


09640 


INC 

HL ; ZEIGER AUF NAECHSTES ZEICHEN RuD EN 

BB7B 

18E9 

09650 


JR 

PRINTS ; UND SCHLEIFE 

BB7D 

3A9C40 

09660 

PR I NT 6 

LD 

A, (PVFLAG) ;PRINTER- VIDEO FLAG LADEN 

BB80 

FEOO 

09670 


CP 

0 ; STFHT PV FLAG AUF BILDSCHIRM“' 

BB82 

2305 

09680 


JP 

Z , PRINT 7 ; FALLS JA, DANN BILDSCHIRM BEHANDLUNG 

BB84 

CDFE 20 

09690 


CALL 

CR ; SONST CR AUF DRUD FR AU56FBEM 


j i 
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BB87 

18BS 

09700 

JR 

PRINT1 ; UND NAECH5TE PHTSIl ALI3CHE ZEILE 

BB89 

7 E 

09710 PRINT7 

LD 

A, (HL? ; ZEICHEN FuR LETZTE BILDSCHIRMSPALTE 

BBBA 

CD2A03 

09720 

CALL 

OUTCHF ; AUSGEBEN 'ES ERFOLGT AUTOMATISCH CP ! ) 

BB8D 

23 

09730 

INC 

HL ; ZEIGER ZEIGT AUF NAECHSTES ZEICHFN 

PB8E 

18B1 

09740 

JR 

PR I NT 1 ; UND NAECHSTE PH VS 11 AL ISCHE ZEILE 

BB90 

CDBDBB 

09750 PPINT8 

CALL 

POPOS ; AKTUELLE SPALENPÜ5TTI0N NACH (I\+l) 

BB93 

AF 

09760 

XOR 

A ; A=0 

BB94 

DDBEOl 

09770 

CP 

(IX+P ; STEHT CURSOR AUF l. SPALTE* 

BB97 

2807 

09780 

JR 

Z,PRIN10; FALLS JA, 1EIN CR AUSGEBEN 

BB°9 

CDFE20 

09790 PPINT9 

CALL 

CR ; SONST CR AUSGEBEN 

BB9C 

ED4BA740 

09800 PR IN 10 

LD 

BC, (BUFANF? ; BC ZEIGT WIEDER AUF BUFFER ANFANG 

BBAO 

16FF 

09810 

LD 

D, 255 ; D AUF VOLLE LAENGE SETZEN 

BBA2 

El 

09820 

POP 

HL ; HL WIEDER ALS ZEIGER ZUPuD HOLEN 

BBA3 

Fl 

09B30 

POP 

AF ;7EICHEN NACH A ZURuCl 

BBA4 

C9 

09840 

RET 

; UND RuCI SPRUNG 



09850 ; 





0*860 ; 





09870 ; 





09880 ; 





09890 ;****» 

INDCHK 




0°900 ;***** 

(JUSTIERT INDENT-COUNTER? 



09910 ; 



BBA5 

DD7E00 

09920 INDCHI 

LD 

A, (IX+Oli INDENT-COUNTER NACH A 

BBAB 

DD7704 

09930 

LD 

( IX+4? , A; A NACH AUFBEREITETEM INDENT-COUNTER 

BBAB 

AF 

09940 

XOR 

A ; A=0 

BBAC 

DDB605 

09950 

OR 

(IX+5? ; THEN-ELSE-FLAG GESETZT" 1 

BBAF 

2907 

09960 

JR 

Z , IND15 ; FALLS MEIN, DANN WEITER 

BBB1 

DD3504 

0*970 

DEC 

( I x+4) ; SONST AUFBEREITETEN INDENT- COUNTER DEC 



09980 ; 



BBB4 

DDCBOB a 6 

09990 IND15 

BIT 

0, (IX+8? ; IF-INDENT-FLAG GESETZT* 

BBB8 

2807 

10000 

JR 

Z, INDCH1; FALLS NEIN, DANN WEITER 

BBBA 

DD3504 

10010 

DEC 

(IX+4) ; SONST AUFBEREITETEN INDENT --COUNTER DEC 



10020 ; 



BBBD 

AF 

10030 INDCH1 

XOR 

A ; A=0 

BBBE 

DDB604 

10040 

OR 

(IX+4) ; IST AUFBEREITETER INDENT-COUNTER = 0* 

BBC1 

F2C8BB 

10050 

JP 

P, INDCH2; FALLS JA, DANN WEITER 



10060 ; 



BBC 4 

DD 7604 00 

10070 

LD 

(IX+4) ,0; SONST AUFBEREITETEN INDENT-COUNTER = 0 



10080 ; 



BFCS 

DD 7 E06 

10090 INDCH2 

L.D 

A, ( IX+6) ; MAX . INDENT NACH A 

BBCB 

DD BEO 4 

10100 

CP 

(IX+4' ; IST INDENT \ LEINER GLEICH MAX. INDENT 

BBCE 

F2D4BB 

10110 

JP 

P, INDCH3; FALLS JA, DANN WEITER 



10120 ; 



BBD1 

DD 7 704 

10130 

LD 

(IX+4) , A; SONST INDENT GLEICH MAX. INDENT SETZEN 



10140 ; 



BBD4 

DD 360500 

10150 INDCH3 

LD 

(IX+5) ,0; THEN-ELSE-FLAG PUEC1 SETZEN 

BBB8 

DD 360 300 

10160 

LD 

(IX+8) ,0; IF-INDENT-FLAG RuCH SETZEN 

BBDL 

C9 

10170 

RET 

; UND MIT AUFBEREITETEM INDENT ZURUED 



10180 ; 





10190 ; 





10200 ; 





10210 ; 





10220 ;***** 

POPOS 




10230 ;♦#*** 

'BRINGT 

SPALTENPOSITION VON DRUD EP ODER BILDSCHIRM NAC 



10240 ; 



BBBD 

3AA640 

10250 POPOS 

LD 

A, (VPOSp VIDEO SPALTENPOSITION MACH A 

BBEA 

DD 7 *01 

10260 

LD 

'IX+1> ,A;WEITER NACH (P + P 

PBE3 

3A°C40 

10270 

LD 

A, (PVFLAb? ; P VF LAG NACH A 

B8E6 

B 7 

10280 

OP 

A ; A) IUELLE AUSGABE AUF VIDEO* 

BBE7 

C8 

10290 

RET 

Z ; FALLS JA, ZURUECK 



2.2.2 Bas i cerueiterung COLBAS 


Quell programm 


Seite 108 


BBE8 3A9B40 
BBEB DD 7 701 
BBEE C9 


10300 
10310 
10320 
10330 
10340 
10350 
1 0360 
10370 
10380 
1 0390 


LD 

LD 

RET 


A, ( FPGS) ; SONST DRLO ER5PALTE NACH A 
( I X + 1 ) , A ; UND WEITER NACH UX+1) 

; UND ZÜRUED 


; ***** 
:***** 


BLANK 5 
(GIBT 5 


LEERZEICHEN AUS) 


BBEE 

0605 

10400 BLANi 5 

LD 

B, 5 ; SCHLEI FENZ AEHLER SETZEN 

BBF1 

3E20 

10410 BL AN) 

LD 

A,’ ’ ; LEERZEICHEN NACH A 

BBF3 

CD2A03 

10420 

CALL 

OUTCHF ; UND AUSGEBEN 

BBF6 

10F* 

10430 

DJNZ 

BLAN) ; SCHLEIFE 

BBF8 

C9 

10440 
10450 ; 

10460 ; 

10470 ; 

10480 ; 

104 Q 0 

10500 i***t* 
10510 ; 

10520 TO) BUF 

RET ; SONST ZÜRUEC) 

TO) BUF 

(DECODIERT TO) EN UND SCHREIBT ES IN DEN BUFFER) 

BBF9 

3EFF 

LD 

A, 255 ; A=255 

BBFB 

BA 

10530 

CP 

D ; IST BUFFER NOCH LEER"* - ‘ 

BBFC 

2 BOA 

10540 

JR 

Z, TO) BU1 ; FALLS JA, WEITER 

BB^E 

3E20 

10550 

LD 

A, ’ ’ ; LEERZEICHEN NACH A 

BC00 

DDBE02 

10560 

CP 

(IX+2) ; IST LETZTES AUSGEGEBENES Z. LEERZEICHEN'' 

PCO 3 

2803 

10570 

JR 

Z, TO) BUlj FALLS JA, WEITER 

BC05 

CD2DBB 

10580 

CALL 

INBUF ; SONST LEERZEICHEN IN DEN BUFFER 

BC08 

7E 

10590 TO) BU1 

L.D 

A, (HL) ; A) TUELLE5 TO) EN NACH A 

BC09 

DD 360 7 00 

10600 

LD 

( IX+7) ,0; DOPPELTO) EN--FLAG RuC) SETZEN 

BCOD 

FEFF 

10610 

CP 

DOPTOF ; IST A) TUELLES TOFEN EIN DOPPELTO) EN'' 

BCOF 

2004 

10620 

JR 

NZ, NODOTO ; FALLS NEIN, FLAG RuC). GESETZT LASSEN 

BC1 1 

DD360701 

10630 

LD 

tIX+7),li SONST DOPPELTO) EN-FLAG SETZEN 

BC15 


10640 NODOTO 

INC 

HL. -.ZEIGER FUER RON-EINSPRUNG JUSTIEREN 

BC16 

D67F 

10650 

SUB 

7FH ; TO) EN - 7F LIEFERT NR DES ) EYWORD 

BC18 

E5 

10660 

PUSH 

HL ; CODEZEIGER RETTEN 

BC19 

5F 

10670 

LD 

E, A ; NR. DES ) EYWORD NACH E 

BC1A 

CDAD39 

1 0680 

CALL 

TABANF ; LAEDT DEN ANFANG DER KEY WORD TAB. NACH HL 

BC1D 

7E 

10690 TO) BU2 

LD 

A, <HL' ; ZEICHEN LADEN 

BC1E 

B7 

10700 

OR 

A ; ANFANG DES NAECH57EN t EYWORD ERREICHT 0 

BC1F 


10710 

INC 

HL s ZEIGER AUF NAECHSTES ZEICHEN 

BC20 

F21DBC 

10720 

JF 

P, TO) BU2; FALLS NEIN, DANN WEITERSUCHEN 

BC23 

ID 

10730 

DEC 

E ; GEWÜNSCHTES ) EYWORD ERREICHT"’ 

BC24 

20F7 

10740 

JR 

NZ, TOI BU2 ; FALLS NEIN, DANN WEITEF5UCHEN 

BC26 

E67F 

10750 

AND 

7FH ; WORT ANFANG SM AR;) IEF:UNG ENTFERNEN 

BC28 

CD2DBB 

10760 TO) BU3 

CALL 

INBUF ; UND ZEICHEN IN DEN BUFFER 

BC2B 

7E 

10770 

LD 

A, (HL* -.ZEICHEN DES ) EYWORD LADEN 

BC2C 

23 

10780 

INC 

HL ; ZEIGER AUF NAECHSTES ZEICHEN 

BC2D 

B7 

10790 

OR 

A ; 1 . ZEICHEN DES NAECHSTEN ) EYWORD 0 

BC2E 

F228BC 

10800 

JP 

P, TO) BU3; FALLS NEIN, DANN WEITER AUSGEBEN 

BC31 

El 

10810 

POP 

HL ; CODEZEIGER ZURuC) 

BC32 

2B 

10820 

DEC 

HL ; UND ZRuC) JUSTIEREN 

BC33 

AF 

10830 

XOR 

A ; A=0 

PC34 

DDBE07 

10840 

CP 

(IX+7) ; DOPPELTO) ENFLAG RuC) GESETZT*"' 

BC37 

2810 

10850 

JR 

Z, TO) BU4; FALLS JA, NORMALER AUSSPRUNG 

BC39 

7E 

10860 

LD 

A, 'HL) ; BEARBEITETES TO) EN NACH A 

BC3A 

FE81 

10870 

CP 

FCOLOU ; WAR ES DAS FCOLOUR-TOf EN° 

BC3C 

200 B 

1 0880 

JR 

NZ , TO) BU4 ; FALLS NEIN, NORMALER AUSSPRUNG 

BC3E 

n"' 
^ j 

10830 

INC 

HL ; ZEIGER AUF ZEICHEN NACH T01EN SETZEN 
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BC3F 
PC 40 
bCA l 
EC 47 
BC45 
BC4S 
BC49 
BC4B 
BC4E 


BC4F 
BC 50 
BC51 
BC 57 
BC57 
BC54 
BC55 
BC56 
BC57 
BC58 
BC5 q 


072A 

0361 

OFAF 

1BC0 

2B75 

1B9B 


40 A4 
40A6 


OOS 8 
0093 


BC5A 


7E 

1 0900 


L.D 

A, 'HL) ; UND ZEICHEN MACH A 

2B 

10910 


DEC 

HL ; 

ZEIGER FuR AUS SPRUNG JUSTIEREN 

FE52 

K'920 


CP 

’R’ ; 

IST ES ’ R ’ 

2004 

1 0930 


JR 

N7,TÜ1BU4 ; FALLS NEIN, NORMALER AUSSPRUNG 

CD2BBB 

1 0 q 40 


CALL 

INPUF ; ’ R' IN DEN BUFFER LADEN 


1 0 Q 50 


INC 

HL : 

ZEIGER ZUM AU5SFPUNG JUSTIEREN 

ZE?0 

10960 TOI PU 4 

LD 

A, ’ ’ 

i LEERZEICHEN NACH A 

CD2DBB 

10970 


CALL 

INBUF ; UND AUSGEBEN 

CQ 

10980 


RET 




io qg o 






11000 




1 1 


11010 






1 1 020 






11030 

***** 

VARIABLENSPEICHER 


1 1 04 1 " 1 

■ 




00 

11050 VARADP 

DEFB 

o 

(IX KU INDENT COUNTER 

oo 

1 1060 


DEFP 

o 

'IX + 1) PRINT BZW. VIDEO-SPALTE 

00 

11070 


DEFB 

o 

tIX+2) LETZTES IN BUFFER GESCHR. ZEICHEN 

00 

1 1080 


DEFB 

A 

(DO VORGEGEBENE ZEILEMLAENGE 

00 

110*0 


DEFB 

0 

<IX+4> AUFBEREITETER INDENT COUNTER 

00 

11100 


DEFB 

o 

(IX+5) THEN-ELSE-FLAG *1=GEsETZTj 

00 

11110 


DEFB 

o 

ax+ö> NA *' . INDENT VORGABE . * 

00 

11120 


DEFB 

o 

(Dt 7 ) DÜPPEL TO) EN-FLAG * 1 =DuPPELTG) EIN 

00 

1 1 1 30 


DEFB 

0 

(108) IF-INDENT- FLAG 

00 

11140 


DEFB 

A 

MXh 9) IF-FLAG 

00 

11150 


DEFB 

0 

aXnlO) ELSE-FLAG 


11160 ( 






11170 ; 

***** 

EUCHEN 

IM BASIC-TExT FuR TPS--BO U. COLOUR-6ENIE ***** 


11180 

***** 


VERSION 1.0 28.11.83 ***** 


11190 

***** 


(C) l q 83 BY M. BuNING ***** 


11200 






11210 

***** 

RON -ADRESSEN 



11220 






11230 S HOC HR 

EQU 

32 AH 

; GIBT ZEICHEN IN A AUS 


11240 GETSTP 

EQU 

3t, 1H 

; LIEST ZEILE IN DEN BUFFER 

— * 

11250 SHOLIN 

EQU 

OFAFH ; GIBT ZEILENNUMMER IN HL AUS “ ** *' 


11260 CODE 

EQU 

1BC OH ; ERZEUGT ZWISCHENCODE 


11270 SHOMSG 

EQU 


\ ; GIBT STRING AUS 


11280 STOP 

EQU 

1D°BH ; WERTET BREA1 UND SHIFT \ L. AUS 


112*0 






11300 

***** 

SYSTEM- 

-RAM-ADRES5EN 


11310 

P 

* 





11320 BSTF 

EQU 

40A4H ; ZEIGER AUF BASIC-ANFANG 


11330 CUFSP 

EQU 

40A6H ; CURSOR-SPALTE 


11340 






1 1350 

***** 

TOI EN 




1 1 360 






11370 

DATAT 

EQU 

88H 

; DATA 


11380 PEMT 

EQU 

q 7H 

; PEM 


11390 






11400 






1 1 410 






11420 






11430 

START 

DER SUCH- ROUTINE 


1 1 440 






1 1450 






11460 






1 1 470 






11480 





DB21D5BD 

1 1 4 q ‘‘* 

SET 

LD 

I Y ,F1AG ; IX ALS ZEIGER AUF DEN FLAG-BEREICH 
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BC5E 0D3 60000 

11500 

LD 

(IX+O) ,0 

; T-FLA6 RÜCKSETZEN 

BC62 3E0 1 

11510 

LD 

A,1 


BC64 32D4BD 

11520 

LD 

(NF) , A 


BC67 2192BD 

11530 

LD 

HL, STRM 


BC6A CD752B 

1 1540 

CALL 

SHOMSG 


BC6D CD6103 

11550 STR IN 

CALL 

GETSTR 


BC70 23 

11560 

INC 

HL 


BC71 7E 

11570 

LD 

A, (HL) 


BC72 B7 

11580 

OR 

A 


BC73 CA16BD 

11590 

JP 

Z, RETURN 

; RÜCKKEHR, FALLS NICHTS EINGEGEBEN 

BC76 FE4Ö 

1 1600 

CP 

» a. * 


BC78 200F 

11610 

JR 

NZ,ST2 

♦ 

BC7A 23 

1 1620 

INC 

HL 


BC7B 7E 

11630 

LD 

A, OHL) 


BC7C FE 40 

11640 

CP 

’S’ 


BC7E 2008 

11650 

JR 

NZ, STi 


BC80 23 

11660 

INC 

HL 


BC81 7E 

11670 

LD 

A, <HL) 

. 

BC82 B7 

1 1680 

OR 

A 


BC83 CA16BD 

11690 

JP 

Z , RETURN 

j RÜCKKEHR, FALLS NICHTS EINGEGEBEN 

BC86 1809 

11700 

JR 

3T3 


BC88 2B 

11710 ST1 

DEC 

HL 


BC89 CDCG1B 

11720 ST2 

CALL 

CODE 


BC8C DD 360001 

1 1 730 

LD 

(IX+0),1 1 

; T-FL.AG SETZEN ~ '■ “'■***“ ■' ’ •*' " 

BC90 23 

11740 

INC 

HL 


BC91 22D0BD 

11750 ST3 

LD 

(STR) ,HL 


BC94 2AA440 

11760 

LD 

HL, (BSTP) 


BC97 7E 

11770 

LD 

A. (HL) 

♦ 

BC98 B7 

11780 

OR 

A 


BC99 2006 

11790 

JR 

MZ , SU 


BC9B 23 

11800 

INC 

HL 


BC9C 7E 

11810 

LD 

A, (HL) 


BC9D B7 

11820 

OR 

A 


BC9E 2860 

11830 

JR 

Z , NOPGM 


BCAO 2B 

1 1840 

DEC 

HL 


BCA1 2B 

11850 SU 

DEC 

HL 


BCA2 23 

11860 GETPTR 

INC 

HL 


BCA3 5E 

11870 

LD 

£, (HL) 


BCA4 23 

11880 

INC 

HL 


BCA5 56 

11890 

LD 

D, (HL) 


BCA6 AF 

11900 

XOR 

A 


BCA7 B3 

11910 • 

OR 

E 

^ * r w- V4-. -VT, P.-./T * - ■+* r . 1 rt ■ • , ' . 

BCA8 C2AFBC 

11920 

JP 

NZ, GETLIN 


BCAB B2 

11930 

OR 

D 

* 

BCAC CA09BD 

11940 

JP 

Z , ENDBAS 


BCAF 23 

11950 GETLIN 

INC 

HL 


BCBO 5E 

11960 

LD 

£, (HL) 


BCB1 23 

11970 

INC 

HL 


BCB2 56 

11980 

LD 

D, (HLi 


BCB3 ED53D2BD 

11990 

LD 

(LIN) , DE 


BCB7 23 

12000 SCAN 

INC 

HL 


BCB8 0600 

12010 

LD 

B,0 


BCBA ED5BD0BD 

12020 

LD 

DE, (STR) 


BCBE 1A 

12030 SCI 

LD 

A, (DE) 


BCBF B7 

1 2040 

OR 

A 


BCCO C2C8BC 

12050 

JP 

NZ, 3C3 


BCC3 CD6EBD 

12060 

CALL 

PRLINE 

; AKTUELLE ZEILENNUMMER AUSGABEN 

BCC6 1830 

12070 

JR 

SC4 


BCC8 4E 

12080 SC3 

LD 

C, (HL) 


BCC9 OC 

12090 

INC 

C 
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BCCA 

OD 

12100 


DEC 

j—i. 


BCCB 

CAA2BC 

12110 


JP 

Z, GETPTR 


BCCE 

B9 

12120 


CP 

C 


BCCF 

DD360100 

12130 


LD 

■ I X + l ) , 0; u-FLAG RuP SETZEN 

BCD3 

2004 

12140 


JR 

NZ, 5C31 ; ECI N I CHT-uBERE I NST I MMUNto FLAG LASSEN 

BCD5 

DD360101 

12150 


LD 

(IX+P , 1; SONST u- 

FLAG SETZEN 

BCD9 

AF 

12160 

SC31 

XOR 

A ; A-0 


BCBA 

DDBEOO 

12170 


CP 

'IX+ö> ; IST T-FLAG RuP GESETZT? 

BCDD 

280D 

12180 


JR 

Z , SC32 ; FALLS JA, DANN SPRUNG 

EOF 

79 

12190 


LD 

A, C ; SONST TEXTZEICHEN NACH A 

BCEO 

FE93 

12200 


CP 

REMT ; IST ES REM-TO) EN'' 1 

BCE2 

2836 

12210 


JR 

Z , SREM ; FALLS JA, DANN AUSWERTEN 

BCE4 

FE88 

12220 


CP 

DATAT ; IST ES BATA-T01 EN“ 

BCE6 

233E 

12230 


JR 

Z, SDATA ; FALLS JA, DANN AUSWERTEN 

BCE8 

FE22 

12240 


CP 

; IST ES ANFÜHRUNGSZEICHEN"* 

BCEA 

2861 

12250 


JR 

Z,SQUOTE; FALLS JA, AUSWERTEN 

BCEC 

AF 

12260 

SC32 

XOR 

A ; A-0 


BCED 

DD BE 01 

12270 


CP 

(IX+1) ; u-FLAG GESETZT' 1 ■***>* 

BCFO 

2806 

1 2280 


JR 

Z, SC4 : FALLS NEIN, DANN NEUER SUCHBEGINN 

BCF2 

04 

12290 

5C35 

INC 

B 


BCF3 

23 

12300 


INC 

HL 


BCF4 

13 

12310 


INC 

DE 


BCF5 

C3BEBC 

12320 


JF* 

SCI 


BCF8 

48 

12330 

SC4 

LD 

C,B 


BCF9 

AF 

12340 


XOR 

A 


BCFA 

47 

12350 


LD 

B.A 


BCFB 

ED42 

12360 


SBC 

HL,BC 


BCFD 

C3B7BC 

12370 


JP 

SCAN 


BDOO 

21B0BD 

12380 

NOPGM 

LD 

HL,NPGM 


BD03 

CD752B 

12390 


CALL 

SHOMSG 


BD06 

C316BD 

12400 


JP 

RETURN 


BD09 

3AD4BD 

12410 

ENDBAS 

LD 

A, (NF) 


BDOC 

B7 

12420 


OR 

A 


BDOD 

CA16BD 

12430 


JP 

Z, RETURN 


BD 1 0 

21A1BD 

12440 


LD 

HL , NFM 


BDI 3 

CD 7 52B 

12450 


CALL 

SHOMSG . 


BDI 6 

21D7BD 

124*0 

RETURN 

LD 

HL, NULL i 

ZEIGER AUF 3 NULLEN’ 

BDI 9 

C9 

12470 


RET 





12480 

* 

* 




BDI A 

CD60BP 

12490 

SREM 

CALL 

EOUAL 


BD1D 

°3 

12500 

SREM1 

INC 

HL ; 

HL ZEIGT AUF NAECHSTES TEXTZEICHEN 

BDIE 

7E 

12510 


LD 

A, 'HD ; 

UND ZEICHEN NACH A 

BD1F 

FE 00 

12520 


CP 

0 ; 

ZEILENENDE ERREICHT' 1 

BD21 

20FA 

12530 


JR 

NZ* SREM1 ; 

FALLS NEIN, DANN SCHLEIFE 

BD23 

C3A2BC 

12540 


JP 

GETPTR ; 

SONST ZUR NAECHSTEN ZEILE 



12550 

* 




B026 

CD60BD 

12560 

5DATA 

CALL 

EQUAL 


BB2 Q 


1 2570 

5DATA1 

INC 

HL i 

HL AUF NAECHSTES ZEICHEN 

BD2A 

7 E 

12580 


LD 

A, (HL* 

U. ZEICHEN NACH A 

BD2B 

FEOO 

12590 


CP 

c% 

- 

ZEILENENDE ERREICHT 7 * 

BD2D 

2003 

1 2600 


JR 

NZ, SDATA2 

FALLS NEIN, WEITER 

BD2F 

C3A2BC 

12610 


JP 

GETPTR 

SONST NEUE ZEILE 

BD32 

FE 22 

12620 

SDATA2 

CP 

i n i 

QUOTE “■ 

BD34 

200F 

12630 


JR 

NZ, 5DATA5 

FALLS NEIN, WEITERE ABFRAGE 

BD36 


12640 

3DATA3 

INC 

HL 

ZEIGER AUF NAECHSTES ZEICHEN 

BD37 

7E 

12650 


LD 

A, (HL) 

U. NACH A 

BD38 

FEOO 

12660 


CP 

0 

ZEILENENDE ERREICHT? 

BD3A 

2003 

12670 


JR 

NZ* SD AI A4 

FALLS NEIN, DANN WEITER 

BD3C 

C3A2BC 

12680 


JP 

GETPTR 

; SONST NEUE ZEILE 

BD3F 

FE22 

12690 

5DATA4 

CP 

' 11 7 

; QUOTE 7 
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BD41 

20F3 

12700 


JR 

NZ , SDATA3 

; FALLS NEIN, DANN SCHLEIFE 

BD43 

18E4 

12710 


JR 

SDATA1 

; SONST HAUFTSCHLEIFE 

BD45 

FE3A 

12720 SDATA5 

CP 

r . •' 

• 

; NAECHSTES STATEMENT? 

BD47 

20E0 

12730 


JR 

NZ,SDATA1 

; FALLS NEIN, HAUPTSCHLEIFE 

BD49 

2B 

12740 


DEC 

HL 

; SONST IN ZEILE WEITERSUCHEN 

BD4A 

C3B7BC 

12750 


JP 

SCAN 




12760 ; 





BD4D 

CD60BD 

12770 SQU0TE 

CALL 

EQUAL 


BD50 

23 

12780 SQU0T1 

INC 

HL 

; HL AUF NAECHSTES ZEICHEN 

BD51 

7E 

12790 


LD 

A, (HL) 

;U. NACH A 

BB52 

FE 00 

12800 


CP 

0 

; ZEILENENDE ERREICHT? 

BD54 

2003 

12810 


JR 

NZ, SÜU0T2 

; FALLS NICHT, DANN WEITER 

BD56 

C3A2BC 

12820 


JP 

6ETPTR 

; SONST NEUE ZEILE 

BD59 

FE22 

12830 SQU0T2 

CP 

MIT 

; ERNEUT QUOTE? 

BD5B 

20F3 

12840 


JR 

NZ , SQUOT 1 

; FALL NEIN, SCHLEIFE 

BD5D 

C3B7BC 

12850 


JP 

SCAN 

; SONST IN DIESER ZEILE WEITERSUCHEN 



12860 ; 







12870 i 







12880 ; 







12890 ; 







12900 ; 

***** 

BENÜTZTE 

UNTERPROGRAMME 




12910 ; 





BD60 

AF 

12920 EQUAL 

XOR 

A 

; A=0 

BD61 

DDBE01 

12930 


CP 

(IX+1) 

; IST ÜBEREINST I MMUNGSFLA6 GESETZT? 

BD64 

C8 

12940 


RET 

Z ’ ' 

; FALLS NEIN, RÜCKSPRUNG 

BD65 

13 

12950 


INC 

DE 

; DE AUF NAECHSTES ZEICHEN IN STRING 

BD66 

1A 

12960 


LD 

A, (DE) 

; UND NACH A 

BD67 

FE00 

12970 


CP 

0 

; IST STRINGENDE ERREICHT? 

BB69 

€0 

12980 


RET 

NZ 

; FALLS NICHT, DANN RÜCKSPRUNG , 

BB6A 

CD6EBD 

12990 


CALL 

F'RLINE 

; SONST ZEILENNUMMER AUSGEBEN 

BD6D 

C9 

13000 


RET 


; UND ZURÜCK 



13010 ; 







13020 ; 




* 



13030 ; 







13040 ; 





BD6E 

E5 

13050 F'RLINE 

PUSH 

HL 


.BD6F 

C5 

13060 


PUSH 

BC 


BD70 

CD9B1D 

13070 


CALL 

STOP 

; stoppen wahrend des ausgeben 

BD73 

AF 

13080 


XOR 

A 


BD74 

32D4BD 

13090 


LD 

(NF) , A 


BD77 

3AA640 

13100 


LD 

A, (CURSP) 


BD7A 

FE21 

13110 ' 


CP 

33 ■ 

57 BEI TRS-80, 33 BEI COLOUR-ÖENIE 

BD7C 

FA84BD 

13120 


JP 

M , PRL INI 


BD7F 

3E0D 

13130 


LD 

A, 13 


BD81 

CD2A03 

13140 


CALL 

SHOCHR 


BD84 

2AB2BD 

13150 F’RLINl 

LD 

HL, (LIN) 


BD87 

CDAF0F 

13160 


CALL 

SHOLIN 


BD8A 

3E20 

13170 


LD 

A , 20H 


BD8C 

CD2A03 

13180 


CALL 

SHOCHR 


BD8F 

CI 

13190 


POP 

BC 


BD90 

El 

13200 


POP 

HL 


BD91 

C9 

13210 


RET 





13220 

i 






13230 







13240 







13250 







13260 

***** 

TEXTE 





13270 





BD92 

1D1E 

13280 STRh 

DEFW 

1E1DH 


BD94 

53 

13290 


DEFM 

'Suchen nach:' 
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BDAO 00 

13300 


DEFB 



BDA1 4E 

13310 NFM 

DE FM 

'Nicht gefunden' 


BDAF 00 

13320 


DEFB 


* 

BDBO 4B 

13330 NPGM 

DEFM 

’l ein BASIC -Prograrrm iin Speicher’ 

BDCF 00 

13340 


DEFB 

0 



1 j ->_'V 

i 3360 






13370 






13380 






13390 

***** 

VAR I ARLEN-BEPEI CH 



1 3400 





BP DO 000'*' 

13410 STP 

DE FW 

0 ; ZEIGER AUF STRINGANFANG 

BPD2 0000 

13420 LIN 

DE FW 

0 ; ZWISCHENSPEICHER FuP ZEILENNUMMEP 

BDD4 00 

13430 MF 

DEFB 

0 ; F LAG * 1 « 

-FEINE uBEREI STIMM. GEF UNDFtM 

BDD5 00 

13440 FLAG 

DEFB 

0 ; FLAG * 

*TOF EN-MODE) 

BDD6 00 

13450 


DEFB 

0 ; FLAG t 1 * 

=BYTE-uBEPE I NST I MMUNG ) 

BDD7 00 

13460 NULL 

DEFB 

,*) t < . ■■ 

4 ' * * » — ** v K ** 

PDDB >:o 

13470 


DEFB 



BDD9 00 

13480 


DEFB 




1 3490 


; * BASIC-PPOGPAMM-FAD EP * 


13500 


; ENTFERNT ALLE LEERRAEUME UND \ OMMENTARE 


13510 


; COPYRIGHT BY LUIDGEP ROED RATH, 26.9.81 


13520 


* 

4 




13530 


: BAS I CUNTEPPROGPAMME 



13540 


* 

f 



1 D7S 

13550 ChF'GET 

EQU 

1D78H ; 

RST ICH UP 

1 F07 

1 3560 SEOL 

EQU 

1F07H 

ZEILENENDE SUCHEN 

1 BIO 

13570 LARG 

EDU 

1B10H 

2 ARGUMENTE ANALYSIEREN 

1E5B 

13580 DECLN1 

EQU 

1E5BH 

ZNR DECODIEREN 

1B2C 

13590 5L.INE 

EQU 

1B2CH 

ZEILE IM PROGRAMMTEST SUCHEN 

0FA7 

13600 F'RZNRl 

EQU 

0FA7H 

’ IN ’ ZNF AUSGEBEN 

OFAF 

13610 PR ZUR 

EQU 

OFAFH 

ZNR AUSGEBEN 

2B 7 5 

13620 F’RINTT 

EQU 

2B 7 5H 

TEXT AUSGEBEN 

20FE 

13630 CP 

EQU 

20FEH 

CR AUSGEBEN 

1 AE8 

.. 13640 ENDML 

EQU 

1 AE8H 4<i - * 

HAUPTSCHLEIFENENDE 

1E4A 

13650 FCEFP 

EQU 

1E4AH 

FC -ERROR 


13660 


• 




13670 


; BASIC 

ZEIGER 



1 3680 


* 



1979 

13690 

TEXT6 

EQU 

1929H 

TEXT 'READY' 

40 A4 

13700 

TFX T A 

EQU 

40A4H 

ZEIGER AUF PROGRAMMTExTAMFANG 

40F9 

13710 

7 ARA 

EQU 

40F9H 

ZEIGER AUF ANFANG DER VARTAB 

4191 

13720 

ILLV 

EQU 

4 1 9 1 H 



1 3730 


f 




13740 


; TOI ENS 



13750 


* 

4 



OOSD 

13760 

GOTO 

EQU 

8DH 


00 SE 

13770 

RUN 

EQU 

8EH 


0091 

13 7 80 

GtiSUB 

EQU 

91H 


0093 

13790 

REM 

EQU 

93H 


0095 

13800 

ELSE 

EQU 

95H 


00 9 F 

13810 

PESUME 

EQU 

^FH 


r 'OCA 

1 3820 

THEN 

EQU 

OCAH 


0038 

13830 

DATA 

EQU 

88H 


•jOAA 

13840 

i IL.LT 

EQU 

OAAH 



1 3850 


4 




13860 


■J ILL 




1 39 7 0 


# 

% 



BDDA 28 OF 

13380 

1 ILL 

JR 

Z J ILL 2 


BPDC 730D 

13890 


JR 

C t \ ILL2 
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BDDE FEGE 

13900 

CP 

OCEH 

BDEO 2809 

13910 

JR 

Z , KIL.L2 

BDE2 FE2E 

13920 

CP 

7 3 

• 

BDE4 2805 

13930 

JR 

Z.KILL2 

BDE6 2B 

13940 

DEC 

HL 

BDE7 D7 

13950 

RST 

10H 

BDE8 C33B01 

1 3960 

JP 

SNERR 

BDEB GDI DIB 

13970 KILL 2 

CALL 

L.ARG 

BDEE Dl 

13980 

POP 

DE 

BDEF D5 

13990 

PUSH 

DE 

BDFO C5 

14000 

PUSH 

BC 

BDF1 CD2C1B 

14010 

CALL 

SLINE 

BDF4 69 

1 4020 

LD 

L,C 

BDF5 60 

14030 

LD 

H, B 

BDF6 Dl 

14040 

POP 

DE 

BDF7 DF 

14050 

RST 

18H 

BDF8 D5 

14060 

PUSH 

DE 

BDF? DA4A1E 

14070 

JP 

C, FCERR 

BDFC CD74BF 

1 4080 

CALL 

LEN 

BDFF 2191BF 

14090 

LD 

HL, TEXT1 

BEO 2 CD752B 

14100 

CALL 

PRINTT 

BE05 2AA440 

14110 

LD 

HL, (TEXTA) 

BE08 2B 

14120 

DEC 

HL 

BE09 D5 

14130 

PUSH 

DE 

BEOA Dl 

14140 REF 1 

POP 

DE 

BEOB 23 

14150 

INC 

HL 

BEOC 7E 

14160 

LD 

A, (HL) 

BEOD 23 

14170 

INC 

HL 

BEOE B6 

14180 

OR 

(HL) 

BEOF 287D 

14190 

JR 

Z , PACK 

BEU 23 

14200 

INC 

HL 

BE12 5E 

14210 

LD 

E, (HL) 

BE 13 23 

1 4220 

INC 

HL 

BE 14 56 

14230 

LD 

L -* 

X 

r 

BE15 D5 

14240 

PUSH 

DE 

BE 16 D7 

14250 REF2 

RST 

10H 

BE 17 A7 

14260 

AND 

A 

BE 18 28F0 

14270 

JR 

Z, REF 1 

BE1A FE22 

14280 

CP 

? II > 

BE IC 2008 

14290 

JR 

NZ, JUMP 

BE1E D7 

14300 STRING 

RST 

10H 

BE1F A7 

14310 

AND 

A 

BE20 28E8 

14320 

JR 

Z , REF 1 

BE22 FE22 

14330 

CP 

3 11? 

BE24 20F8 

14340 

JR 

NZ, STRING 

BE26 FEFF 

14350 JUMP 

CP 

ÜFFH 

BE28 23 

14360 

INC 

HL 

BE29 28EB 

14370 

JR 

Z , REF 2 

BE2B 2B 

14380 

DEC 

HL 

BE2C FE8D 

1 4390 

CP 

GOTO 

BE2E 2819 

14400 

JR 

Z, JUMP1 

BE30 FE91 

14410 

CP 

GOSUB 

BE32 2815 

14420 

JR 

Z, JUMP1 

BE34 FESE 

14430 

CP 

RUN 

BE 36 2811 

14440 

JR 

Z, JUMP1 

BE38 FE9F 

14450 

CP 

RESUME 

BE3A 280D 

14460 

JR 

Z, JUMPi 

BE3C FE95 

14470 

CP 

ELSE 

BE3E 2804 

14480 

JR 

Z, JUMP 2 

BE 40 FECA 

14490 

CP 

THEN 


v >* f ** . t ** v * - 
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BE42 

2002 

14500 


JR 

NZ,REF2 

BE44 

D7 

14510 JUMP 2 

RST 

10H 

BE 45 

2B 

14520 


DEC 

HL 

BE46 

30CE 

14530 


JR 

NC, RE F 2 

BE48 

AF 

14540 


XOR 

A 

BE49 

F5 

14550 JUMP1 

PUSH 

AF 

BE4A 

CD5B1E 

14560 


CALL 

DECLN1 

BE4D 

2B 

14570 


DEC 

HL 

BE4E 

Fl 

14580 


POP 

AF 

BE4F 

D69F 

14590 


SUB 

RESUME 

BE51 

B2 

14600 


OR 

D 

BE52 

B3 

14610 


OR 

E 

BE53 

2SC1 

1 4620 


JR 

Z,REF2 

BE55 

E5 

1 4630 


PUSH 

HL. 

BE56 

CD2C1B 

14640 


CALL 

SLINE 

BE59 

30 IC 

14650 


JR 

NC, UNDEFL 

BE5B 

69 

■ 14660 



LD 

L,C ' 

BE5C 

60 

14670 


LD 

H, B 

BE5D 


14680 


INC 

HL 

BE5E 


14690 


INC 

HL 

BE5F 

97 ; 

14700 


INC 

HL 

BE 60 

D7 

14710 


RST 

10H 

BE61 

FE3A 

14720 


CP 

» . j 

• 

6E63 

CC781D 

14730 


CALL 

Z , CHRGET 

BE66 

FE93 

1 4740 


CP 

REM 

BE6B 

2002 

14750 


JR 

NZ, REF3 

BE>)A 

36 FE 

14760 


LD 

(HL) ,OFEH 

BE6C 

El 

14770 REF3 

POP 

HL. 

BE 60 

07 

1 4780 


RST 

10H 

BEfcE 

FE2C 

14790 I 


CP 

+ 1 

4 

BE 70 

3ESD 

1 4800 1 


LD 

A, GOTO 

BE72 

2SD5 

14810 


JR 

Z, JUMPi 

BE74 

2B 

1 4820 1 


DEC 

HL 

BE75 

1B9F 

14830 


JR 

REF2 

BE77 

21C6BF 

14840 UNDEFL 

LD 

HL, TEXT3 

BE7A 

CD752B 

14850 


CALL 

PRINTT 

BE7D 

EB 

14860 


EX 

DE, HL 

BE7E 

CDAFOF 

14870 


CALL 

PRZNR 

BE81 

01 

1 4880 


PÜP 

DE 

BES 2 

El 

14890 


POP 

HL 

BE83 

E5 

1 4900 


PUSH 

HL 

BE84 

05 

14910 


PUSH 

DE 

BE85 

CDA70F 

14920 


CALL 

PRZNR 1 

BE88 

El 

14930 


POP 

HL 

BE89 

CDFE20 

1 4940 


CALL 

CF; 

BEBC 

1888 

14950 


JR 

REF2 

BEBE 

21B5BF 

14960 

PACK 

LD 

HL, TEXT2 

BE91 

CD752B 

14970 


CALL 

PRINTT 

BE94 

El 

14980 


POP 

HL 

BE95 

Dl 

14990 


POP 

DE 

BE96 

ES 

15000 


PUSH 

HL 

BE97 

D5 

15010 


PUSH 

DE 

BE9S 

2B 

15020 


DEC 

HL 

BE99 

23 

15030 

PACKL 

INC 

HL 

BE9A 

7E 

15040 

PACKL1 

LD 

A, (HL) 

BE9B 

23 

15050 


INC 

HL 

BE9C 

B6 

15060 


OR 

(HL) 

BE9Ü 

CA3ABF 

15070 


JP 

Z, PACKE 

BEAO 

23 

15080 


INC 

HL 

BEA1 

5E 

1 5090 


LD 

E, (HL) 


1 IS 
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BEA2 


15100 

INC 

HL 

BE A3 

56 

15110 

LD 

D, \HL) 

BE A4 


15120 

INC 

HL 

BEA5 

E3 

15130 

EY 

».5P> ,HL 

BEA6 

DF 

15140 

PST 

1SH 

EEA7 

E7 

15150 

Ex 

•SP> ,HL 

PEA8 

DA3ABF 

15160 

JP 

C , PAD E 

BE AB 

ES 

15170 

PUSH 

HL 

BEAC 

’E 

15180 CHAF' 

LD 

A, 'HD 

BE AD 

A7 

1519m 

AND 

A 

PEAE 

2670 

1 52o0 

JF 

2 , EOL 

PEPO 

F EFF 

15210 

CP 

OFFH 

BEB 2 


15220 

INC 

Hl 

BEB 3 

2^. 

15230 

INC 

HL 

BEB4 

28F& 

15240 

JR 

Z , CHAR 

BEFö 

2P 

15250 

DEC 

HL 

BEB 7 

2B 

15260 

DEC 

HL 

PEPS 

FE 20 

15270 

CP 

\ i 

BEBA 

2824 

15280 

3R 

1 , SPACE 

BEPl 

FEOA 

152 g ö 

CP 

OAH 

BEBE 

2820 

15300 

JR 

: , SPACE 

BECO 

FE Q 3 

15310 

CP 

PEM 

BEC2 

282B 

15320 

•JP 

2 , DELPEM 

PEC'4 

FEFE 

15330 

CP 

OF EH 

BECö 

2S26 

15340 

JF 

Z,BELR1 

BECS 

FE88 

15350 

CP 

DATA 

BECA 

287A 

1 5360 

JR 

2, FD ATA 

BECC 

FE3A 

15370 

CP 

’ . ’ 
* 

BECE 

282 g 

15380 

JF; 

2, COLON 

BEDO 

FE22 

15390 CPSTP 

CP 

' M ' 

BED2 

£.-• 

15400 CHARl 

INC 

HL 

BED3 

20D 7 

15410 

JR 

NZ , CHAR 

BE 25 

2B 

15420 

DEC 

HL 

BEB 6 

D7 

15430 STP 1 

PST 

10H 

BEI) 7 

A7 

15440 

AND 

A 

BEDE 

284E 

15450 

JF; 

Z , EOL 

BEDA 

Do 2 2 

15460 

SUB 

* 1* 3 

BEDC 

20 FS 

15470 

JP 

NZ , STF‘1 

BEDE 

1 8F0 

15480 

JR 

CP'STR 

BEEO 

CDE5BE 

1 54 Q 0 SPACE 

CALL 

USPACE 

BEE3 

16C7 

155 r *0 

JP 

CHAP 

BEE5 

E5 

•» 15510 USPACE 

PÜS^ 

HL 

BEE6 

D7 

15520 

RST 

DH 

BEE' T 

Dl 

15530 

POP 

DE 

BEE8 

D5 

15540 DEL 

PUSH 

DE 

BEE? 

CD61BF 

1 5550 

CALL 

DELETE 

BEEC 

El 

1 55ö0 

POP 

HL 

BEED 

C9 

155 7 0 

PET 


BEEE 


155B0 DELR1 

INC 

HL 

BEEF 

E5 

15590 DELREM 

PUSH 

HL 

BEFO 

CD071F 

15ö00 

CALL 

SEOL 

BEF3 

Dl 

15610 

POP 

DE 

BEF 4 

CDESBE 

15620 

CALL 

DEL 

BEF"' 

18B3 

15630 

JR 

CHAR 

BEF g 

E5 

15640 COLON 

PUSH 

HL 

BEFA 

D? 

15650 

RST 

10H 

BEFB 

El 

15660 

C, 0 c ' 

HL 

BEFC 

FE93 

15670 

CP 

PEM 

BEFE 

28 EO 

15680 

JR 

Z, SPACE 

BFOO 

FEFE 

156R0 

CP 

OFEH 
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BF 02 28DC 

15700 

JR 

2 , SPACE 

BF04 13CC 

15710 

JR 

CHAR1 

BF06 23 

15720 PDA TA 

INC 

HL 

BF 07 7E * 

15730 

LD 

A, (HL) 

BFOS FE20 

15740 

CP 

y ? 

BFOA CCE5BE 

15750 

CALL 

Z , USPACE 

BFOD 2B 

15760 

DEC 

HL 

BF OE D7 

15770 

RST 

10H 

BFOF 2B9B 

15780 

JR 

Z, CHAR 

BF 11 FE22 

15790 

CP 

y ti y 

BF 13 200D 

15800 

JR 

NZ , SCI 1 

BF 15 D7 

15810 DS 

RST 

10H 

BF16 A7 

15820 

AND 

A 

BF 17 280F 

15830 

JR 

2 , EOL 

\ . BF 19 FE22 

15840 

CP 

? ii > 

BF1B 20 F 8 

15850 

JR 

NZ , DS 

BF1D 18E7 

15860 

JR 


BF1F D7 

15870 SC 

RST 

10H 

BF20 289A 

15880 

JR 

Z , CHAR 

BF22 FE2C 

15890 SCI! 

CP 

? ? 

1 

BF24 20F9 

15900 

JR 

NZ , SC 

BF26 18BE 

15910 

JR 

PDATA 

BF28 Dl 

15920 EOL 

POP 

DE 

BF29 DF 

15930 

RST 

13H 

BF2A C299BE 

15940 

JP 

NZ , PACKL 

BF2D 1B 

15950 

DEC 

DE 

BF2E 1B 

15960 

DEC 

DE 

BF2F 1B 

15970 

DEC 

DE 

BF 30 1B 

15980 

DEC 

DE 

BF31 D5 

15990 

PUSH 

DE 

BF32 23 

1 6000 

INC 

HL 

BF33 CD61BF 

16010 

CALL 

DELETE 

BF36 Et 

16020 

POP 

HL 

BF37 C39ABE 

1 6030 

JP 

PACKL 1 

■ ■ * BF3A Dl 

16040 PACKE 

POP 

DE 1 ■■ '■ •’ ■ ■- ■ ;■ ' >v i f i . »f i • " i i & t ■ ,r,a .-..v.irr-.ri v 

BF3B 2AA440 

16050 

LD 

HL, (TEXTA) 

BF3E 2B 

16060 

DEC 

HL 

BF3F 23 

16070 DEL.REF 

INC 

HL 

BF 40 7E 

16080 

LD 

A, (HL) 

BF 41 23 

16090 

INC 

HL 

BF42 B6 

16100 

OR 

(HL) 

BF43 CA55BF 

16110 

JP 

Z , END 

BF46 23 

16120 

INC 

HL 

BF47 23 

16130 

INC 

HL 

BF48 23 

16140 

INC 

HL 

BF49 7E 

16150 

LD 

A, (HL) 

BF4A FEFE 

16160 

CP 

OFEH 

BF4C 2002 

16170 

JR 

NZ , NEXTL1 

BF4E 3693 

16180 

LD 

(HL) , REM 

BF 50 CD071F 

16190 NEXTL1 

CALL 

SEOL 

BF53 18EA 

16200 

JR 

DELREF 

BF 5 5 CD74BF 

16210 END 

CALL 

LEN 

BF5B 212919 

16220 

LD 

HL, TEXT6 

BF5B CD752B 

16230 

CALL 

PRINTT 

BF5E C3E81A 

16240 

JP 

END ML 

BF61 D5 

16250 DELETE 

PUSH 

DE 

BF62 EB 

16260 

EX 

DE, HL 

BF63 2AF°40 

16270 

LD 

HL, (VARA) 

BF66 A7 

16280 

AND 

A 

BF67 ED52 

16290 

SBC 

HL, DE 
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BF69 

4D 

1 6300 

LD 

C,L 

BF6A 

44 

16310 

LD 

B,H 

BF6B 

EB 

16320 

EX 

DE, HL 

BF6C 

Dl 

16330 

POP 

DE 

BF6Ü 

EDBO 

16340 

LDIR 


BF6F 

ED53F940 

1 6350 

L.D 

(VARA) , DE 

BF 73 

C9 

1 6360 

RET 


BF 74 

ES 

16370 LEN 

PUSH 

HL 

BF 7 5 

21E4BF 

1 6380 

LD 

HL, TEXT4 

BF 78 

CD752B 

16390 

CALL 

PRINTT 

BF7B 

2AF940 

1 6400 

LD 

HL, (VARA) 

BF7E 

ED SB A4 40 

16410 

LD 

DE, (TEXTA) 

BF32 


16420 

SCF 


BF83 

ED52 

16430 

SBC 

HL , DE 

BF85 

2B 

16440 

DEC 

HL 

BF66 

CDAFOF 

16450 

CALL 

PRZNft 

BF89 

21F8BF 

16460 

LD 

HL, TEXT5 

BF3C 

CD7S2B 

16470 

CALL 

PRINTT 

BF8F 

El 

1 6480 

PGP 

HL 

BF 90 

C9 

16490 

RET 


BF91 

SA 

16500 TEXT 1 

DE FM 

’ Zei 1 enre+erenzen werden 

BFB3 

OD 

16510 

DEFB 

ODH 

' BFB4 

00 

1 6520 

DEFB 

fl *•;>. .-v • ■ • "i:-. * -'s 

BFB5 

50 

16530 TEXT2 

DEFM 

’ Packen beginnt . ? 

BFC4 

OD 

16540 

DEFB 

ODH 

BFC5 

00 

1 6550 

DEFB 

0 

BFC6 

42 

16560 TEXT3 

DEFM 

'Bezug aut Undefinierte 

BFE3 

00 

1 6570 

DEFB 

o 

BFE4 

50 

16580 TEXT4 

DEFM 

Programm erfordert * 

BFF7 

00 

16590 

DEFB 

0 

BFFe 

20 

16600 TEXT5 

DEFM 

•' Bytes-’ 

BFFE 

OD 

16610 

DEFB 

ODH 

BFFF 

00 

16620 

DEFB 

A 

B67C 


16630 

END 

IMIT 


00000 TOTAL ERRÜRS 

01403 TEXT AREA BYTES LEFT 


. f 1 ““'S, , 1 r * S * H - \ ,1 h jrj 


. F -I ' L ►-» L . r| V * t r* 


ermi ttel t . 


eile ? 


. ' ' * * r 
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2.3.1 Feldaufzeichnung ARRAY 


ARRAY ermögl icht das schnei le Aufzeichnen und Laden von 
Feldern auf Kassette oder Diskette durch einen einzigen 
Befehl , wobei für das ganze Feld nur ein Header auf 
Kassette auf gezeichnet wird. 

Funktionsweise : 


ARRAY schreibt numerische Felder wie sie im Speicher stehen 
auf Kassette bzw. Diskette. Bei Str i ngf el dern wird jeder 
String - angeführt von seiner Länge - in der Reihenfolge, 
in der die Strings im Feld angeordnet sind, auf geze ichnet . 
Die Betriebssystemanbindung ist ähnlich wie bei PACK. 

Der Aufruf : 


** Kassettenversion : 


ARRAY stellt zwei neue Befehle zur Verfügung, die 

f o 1 gender maßen auf gerufen werden : 

FIELD PRINT #- 1 , A< 20 ) , B$C 20 ) , C< 1 0 , 1 0 > , . . . 

FIELD INPUT ,AC20) ,B$C20> ,CC 10, 10) , . . . 

Durch den FIELD PRINT-Befehl werden die Feldelemente 
AC0)..A(20>, BSC0..20), C<0,0)..CC10,10> auf Kassette 

auf gezeichnet . Die Var i abl en 1 i ste kann beliebig lang sein. 
Bei eindimensionalen ARRAY kann auch nur ein Teil 

auf geze i chnet werden : 

10 Din AC20) 


100 FIELD PRINT #-l,A<10) 

Hier werden nur die ersten 11 Elemente aufzeichnet. 

Bei mehrdimensionalen Feldern ist es zwar auch möglich nur 
einen Teil aufzuzeichnen, aber da immer der Bereich im 
Speicher zwischen Feld(0 , 0 , . . . , 0 ) und FeldCX 1 , X2 , . . . , XN) 
auf gezei chnet wird, kann im allgemeinen nicht davon 
ausgegangen werden, daß die Elemente 
Fe 1 dC 0 . . X 1 , 0 . . X2 , . . . , 0 . . XN ) darunter sind. 

Hit der FIELD I NPUT-Anwei sung müssen genausoviele Elemente 
eingelesen werden, wie auf geze i chnet wurden, ansonsten 
erfolgt ein BS-Error . 

Sollen mit einem FIELD-INPUT Stringfelder gelesen werden, 
so werden zuerst diese Felder gelöscht und dann der 
Stringspace von überf 1 üssi gen Strings bere inigt um für die 
zu lesenden Strings genügend Platz zu schaffen. Da dies 
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unter Umständen längere Zeit in Anspruch nehmen 
bei Beginn des eigentlichen Lade Vorgangs ein ’ 
oberen rechten Bi ld schirmecke angezeigt . Sol lte 
be i m Laden herauste 1 1 en , daß der PI atz n i cht 
ui rd das Laden mit ei nem OS-Error abgebrochen . 


kann , ui rd 
S’ in der 
sich später 
ausreicht , 


Beim Laden uird bei jeder Hui 1 bzu. 
der Stern in der oberen rechten Ecke 


be i j edem neuen Str i ng 
umgescha 1 tet . 


* * Di skettenvers i on : 


ARRAY stellt zuei neue Befehle zur Verfügung, die 
f o 1 gendermaßen auf gerufen uerden : 

FIELD PRINT # 1 , A C 20 > , B$< 20 } , C C 1 0 , 10 > , . . . 

FIELD INPUT #1 , AC20) ,B$C20) ,CC 10, 10 j , . . . 


Durch den FIELD PRINT-Befehl 
A ( 0 ) . . A< 20 ) , B$C8 . .20) , CC0 , 0) . .CC 
1> auf geze i chnet . Die Variablen 
se in. Bei eindi mens i ona 1 en ARRAY 
auf gezeichnet uerden : 


uerden die 
10, 10) auf 
1 i ste kann 
kann auch 


Fel del emente 
Diskette (File 
be 1 i eb i g 1 ang 
nur ein Teil 


10 DIN AC20) 


100 FIELD PRINT #1,AC10) 

Hier uerden nur die ersten 11 El emente auf ze i chnet . 

Bei mehrdimensionalen Feldern ist es zuar auch möglich nur 
einen Teil aufzuzeichnen, aber da immer der Bereich im 
Speicher zuischen Fel d ( 0 , 0 , . . . , 0 ) und FeldC XI , X2 , . . . , XN) 
auf geze i chnet u i rd , kann im al 1 gerne inen nicht davon 
ausgegangen uerden , daß die El emente 
Fe ld ( 0 . . X 1 , 0 . . X2 , . . . , 0 * . XN ) darunter sind. 

Nit der FIELD I NPUT-Anue i sung müssen genausov i el e Elemente 
e i nge 1 esen uerden , u i e auf geze ichnet uurden, ansonsten 
erf o 1 gt ein BS-Error . Reicht be i Ze i chenkettenf e 1 dern der 
P 1 atz im Stringspace nicht aus , uird der Lade vor gang mit 
OS-Error abgebrochen . Ist ein Garbage-Col lect notuendig, 
kann es Vorkommen , daß das Laufuerk für di ese Ze it anhält. 
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00 100 

iASEG 


BE6F 

00110 

DRG 

0BE6FH 

BE6F 2A7D41 

00120 INI T 

LD 

HL, (FIELDV- 

BE 72 228ABE 

00 1 30 

LD 

»AAZ*1 » ,HL 

BE75 217EBE 

00140 

LD 

HL, AAY 

BE^S 227D41 

00150 

LD 

( FIELDV 1 , HL 

BE7B C3191A 

00 1 60 

JP 

1A19H 


00170 

* 

$ 


BE7E FE89 

00180 AAY 

CP 

INPUT 

BE80 CAODBF 

00190 

JP 

Z , AB I 

BE83 FEB2 

00200 

CP 

PRINT 

BE85 2805 

00210 

JR 

I, ABA 

BEB* 1 2B 

00220 

DEC 

HL 

BES 8 D7 

00230 

R5T 

LOH 

BES Q C 30000 

00240 AAZ 

JP 

o 

BE8C D7 

00250 ABA 

RST 

10H 

BE8D CDA935 

00260 

CALL 

INI TW ~ , 

BE90 2B 

00270 

DEC 

HL 

BE'?! 010000 

00280 ABB 

LD 

BC , 0 

88^4 CD6000 

00290 

CALL 

DELAY 

BE9 7 CD 6000 

00300 

CALL 

DELAY 

BE9A D7 

00310 

RST 

10H 

BE9B CDDOBF 

00320 

CALL 

ABF 

BE9E ^B 

00330 

LD 

A,E 

BE9F CD1F02 

00340 

CALL 

WPITEB 

BEA2 7 A 

0*350 

LD 

A,D 

BEA3 CD1F02 

00360 

CALL 

WRITEB 

BEA6 3AAF40 

00370 

LD 

A, <TyPX> 

BEA9 FE03 

00380 

CP 


BE AB 204° 

00390 

JR 

NZ, ABG 

BEAD E5 

00400 

PUSH 

HL 

BEAE C5 

00410 

PUSH 

BC 

BEAF D5 

00420 

PUSH 

DE 

BE BO 210000 

00430 

LD 

HL , 0 

BEB3 OA 

v 00440 ABC 

LD , „ 

A, (BC; 

BEB 4 85 

00450 

ADD 

A,L 

BEB5 6F 

00460 

LD 

L, A 

BEB 6 

00470 

L.B 

A,H 

BEB 7 CEOO 

00480 

ADC 

A, 0 

BEF* b? 

»Xi 490 

LD 

H, A 

BEBA 1B 

00500 

DEC 

DE 

BEPfe tP 

005 1 0 

DEC 

DE 

BEBC 1B 

00520 

DEC 

DE 

BEBD 03 

00530 

INC 

BC 

BEBE 03 

'■'0540 

INC 

BC 

BE BF 03 

00550 

INC 

BC 

BECO 7A 

00560 

LD 

A, D 

BEC 1 B3 

00570 

OR 

E 

BEC2 20EF 

00580 

JR 

NZ , ABC 

BEC 4 T' 

00590 

LD 

A,L 

BEC5 EDI F 02 

00600 

CALL 

WEITES 

BEC 3 7C 

00610 

LD 

A, H 

BEC9 CD1F02 

00620 

CALL 

WRITEB 

BECC Dl 

00630 

POP 

DE 

PECD El 

00640 

FOP 

HL 

BECE D5 

00650 ABD 

F’USH 

DE 

BECF 56 

00660 

L.D 

D, (HL) 

BE DO 23 

00670 

INC 

HL 

BED1 4E 

00680 

LD 

C, 'HD 

BED2 23 

00690 

INC 

HL 




**■ . * + * n ^u-i+ 
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BED3 

4^ 

00700 

LD 

E\ 'HL) 

BFD4 

“ T 

00710 

INC 

HL 

BED5 

7A 

00720 

L D 

A, D 

BEDt. 

CB 1 FCC 

00730 

CAL L 

WEITES 

BEB* 

A7 

00740 

AND 

A 

BEDA 

280E 

00750 

JP 

Z , ABF 

BEDC 

OA 

00760 ABE 

LD 

A, <BO 

BE DD 

CD1F02 

00770 

CALL 

WFITEB 

BEEO 

CD CA BF 

00780 

CALL 

BREA* 

BEE3 

C2C4BF 

Al 

3 P 

N 2, RET 2 

BEE6 

03 

OOS 00 

INC 

BC 

BEE7 

15 

008 1 0 

DEC 

D 

BEE8 

20F2 

00820 

JF; 

NZ, ABE 

BEEA 

DJ 

00830 ABF 

POP 

DE 

BEEB 

1B 

00840 

DEC 

DE 

BEEL 

1B 

00850 

DEC 

DE 

BEED 

1B 

00860 

DEC 

DE 

BEEE. 

7A 

00870 

LD 

A, D 

BEEF 

B3 

00380 

GR 

E 

BEFO 

20DC 

008*0 

JR 

NZ, ABD 

BEF 2 

El 

00° 00 

POP 

Hl 

BEF3 

C306BF 

00910 

JP 

ABH 

BEFfc 

( .*A 

00920 ABG 

LD 

A, (BO 

BEF" 

CD 1 FCC 

00930 

CALL 

WRITEB 

BEFA 

CDCABF 

00940 

CALL 

BPEAF 

BEFD 

C1C6BF 

00950 

JP 

NZ , RET 

BF 00 

03 

00960 

INC 

BC 

BF 0 1 

1B 

00970 

DEL 

DE 

BF 02 

7A 

00930 

LD 

A, D 

BF03 

B3 

00*90 

OP 

V 

BF04 

2OF0 

0 1 000 

JR 

NZ, ABG 

BF06 

7E 

01010 APH 

LD 

A, (HL) 

BF07 

FE2C 

01020 

CP 

* i 

BFO q 

CA91BE 

01030 

JP 

2, ABB 

BFOC 

C9 

01040 

RET 


BFOD 

CD282S 

01050 ABI 

CALL 

2828H 

BF 10 

D7 

01060 

RST 

10H 

BF 11 

CDB535 

01070 

CALL 

35B5H 

BF 14 

2B 

01080 

DFC 

HL 

BF 15 

E5 

01090 

PUSH 

HL 

BF 16 

AF 

01100 . 

XOP 

A 

BF 17 

32FFBF 

01110 

LD 

(FLAG) , A 

BF1A 

D7 

01120 ABJ1 

RST 

10H 

BEI B 

CDDOBF 

01130 

CALL 

ABP 

BF1E 

3AAF40 

01140 

LD 

A, (TYF'X) 

BF21 

FE03 

01150 

CP 


BF23 

200B 

01160 

JR 

N2 , ABF’l 

BF25 

32FFBF 

01170 

LD 

* FLAG » , A 

BF28 

AF 

01180 AB* 1 

X OR 

A 

BF29 

n^ 1 

- -L» 

011*0 

LD 

■BC) ,A 

BF2A 

03 

01200 

INC 

PC 

BF2B 

1B 

01210 

DEC 

DE 

BF2C 

7A 

01220 

LD 

A, D 

BF2D 

B3 

01230 

OR 

E 

BF2E 

20FB 

01240 

JP 

NZ, AB* 1 

BF30 

7E 

01250 ABF' J 

LD 

A, { HL. ) 

BF31 

FE2C 

01260 

CP 

T 

\ 

BF 3 3 

CA1 ABF 

01270 

JP 

Z, ABJ1 

BF36 

3AFFBF 

01280 

LD 

A, (FLAG) 

BF 39 

A7 

01290 

AND 

A 


- V * 1U- + r t ^ 


i j Ol'K * * J <*>» ^ 


» 'ieZ* # +* H*'. * 
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BF3A C4Eö28 

01300 

Call. 

N7, iÜL L.CU 

BF 31) 3E53 

01 310 

LJ' 

il ’ C ' 

■ , 

BF3F 322744 

01320 

LD 

■ 442'»* , A 

BF 42 CD 4L 02 

0 1 33 0 

LALL. 

INH F-: 

BF45 El 

01340 

POP 

HL 

PF46 D 7 

01350 APJ 

PST 

ioH 

BF 4 7 CDDOBF 

01360 

CALL 

ABP 

BF4A L D£: DO 1 

013~0 

CALL 

PEADB 

BF4D BB 

01380 

CP 

E 

BF4E C23D2 7 

013^0 

JP 

N2 , PFF.PP 

BF51 LBED 01 

01400 

CALL 

READB 

BF 54 PA 

0)410 

CP 

D 

BF55 C23D27 

01420 

JP 

Ni , FSERP 

BF5& 3AAF40 

01430 

LD 

A, > T ; F'\ J 

BF SB FE03 

0 1 440 

CP 

0 

RF5E’ 20 4 A 

OJ 450 

JR 

NI\ ABP 

BF5F ES 

Ol4sU 

PUSH 


BFiO CDE.Dö j 

01470 

CALL 

READB 

BF 6 3 6 F 

014S0 

LD 

1 A 

- , M 

PF t4 lE'EPOI 

014°’ > 

CALL 

READB 

BFtT 6 7 

01500 

LD 

H , H 

BF *S CDESBF 

01510 

CALL 

ABS 

BFöB D2FABF 

01520 

JP 

Nf , AP r 

BFtE 6 ° 

01 570 

LD 

L,C 

BF 6 F 60 

01540 

LD 

H,B 

BF t O CDE401 

01550 A&M 

CALL 

Bl. I MJ. 

BF 7 3 D5 

01560 

PUSH 

DE 

EfF74 f DEI'Ol 

015^0 

LALl. 

PEADB 

BF7 -7 77 

01 SSO 

LD 

(HL > , A 

BF 'S 73 

olS^O 

INC 

HL 

BF 7 9 £5 

01600 

PUSH 

HL 

BF'A 2AP640 

01610 

LD 

HL, 'STRZGJ 

EF7D 4F 

01620 

LD 

C , A 

BF7F 0600 

01630 

LD 

B, 0 

PFSO A7 

01 &40 • ’ 

AND 

A * Hfcffaj* *' \ t* * r'< 

M 

BF81 ED42 

01650 

SBC 

HL, EC 

BF83 22D640 

0 1 660 

LD 

1 STR20,* , HL 

Bf Bo 27 

0167U 

INC 

HL 

BFS 7 EB 

01 öS 1 *' 

E* 

DF, HL 

BFS 8 El 

01 ö9ü 

POP 

HL 

ßpg9 73 

01 7 00 

LE 

tHLi , E 

BF 3 A 23 

01 710 

INC 

HL 

BF SB 72 

01720 

LD 

* HL.' , D 

pf&>: 23 

01730 

INC 

HL. 

BF 8 D A7 

01740 

AND 

A 

BF BE 2 POE 

OJ 7 50 

JP 

Z , ABÜ 

BF90 CDED01 

01760 ABN 

CALL 

READB 

BF Q 3 12 

01770 

LD 

1 DE 1 , A 

BF 94 CDCABF 

'*'1780 

CALL 

BREAK 

BF '* 7 C2C4BF 

OJ 790 

JP 

NZ , RET2 

&F9A 13 

01 SÖO 

INC 

DE 

PF C 'B OD 

01610 

DEC 

C 

BF°C 20F2 

01820 

JF: 

HZ , ABN 

BF*E ul 

'.*1830 ABO 

POP 

de: 

BF°F 1B 

01940 

DEC 

DE 

BF AO 1B 

01650 

DEC 

DE 

BFAJ 1B 

01 Bö" 

DEC 

DE 

BFA2 7P 

013""0 

LD 

A,EI 

BFA3 B2 

0 1 SSO 

OR 

D 

BF A4 20C A 

0 1 890 

JR 

NZ , ABM 
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BFA6 El 

01900 

POP 

HL 


BFA7 1814 

01910 

JR 

ABQ 


BFA9 CDED01 

01920 ABP 

CALL 

READB 


BFAC 02 

01930 

LD 

<BC> , A 


BF AD A7 

01940 

AND 

A 


BFAE CCE401 

01950 

CALL. 

2, BLINK 


BFB1 CDCABF 

01960 

CALL 

BREAK 


BFB4 C2C6BF 

0 1 970 

JP 

NZ, RET 


BFB7 03 

01 980 

INC 

BC 


BFB8 1B 

01990 

DEC 

DE 


BFB9 7A 

02000 

LD 

A,D 


BFBA B3 

02010 

OR 

E 


BFBB 20EC 

02020 

JR 

NZ, ABP 


BFBD 7E 

02030 ABÜ 

LD 

A, (HL) 


BFBE FE2C 

02040 

CP 

? ? 


BF CO CA46BF 

02050 

JP 

Z , ABJ 


BFC3 C9 

02060 

RET 



BFC4 Dl 

02070 RET 2 

POP 

DE 


BFC5 El 

02080 

POP 

HL 


BFCt 2 AE 6 40 

02090 RET 

LD 

HL, (40E6H) 


BFC9 C9 

02100 

RET 



BFCA 3A40F8 

02110 BREAK 

LD 

A, (0F840H) 


. BFCD CB57 

02120 

BIT . 

o a 

A)i n 


BFCF C9 

02130 

RET 



BFDO CD0D26 

02140 ABR 

CALL 

SVAR 


BFD3 E5 

02150 

PUSH 

HL 


BFD4 2AFB40 

02160 

LD 

HL, (ARRTAB) 


BFD7 ED52 

02170 

SBC 

HL, DE 


BFD9 D2F60A 

02180 

JF' 

NC, TMERR 


BFDC 3AAF40 

02190 

LD 

A, (TYPX) 


BFDF 6F 

02200 

LD 

L, A 


BFEO 2600 

02210 

LD 

H, 0 


BFE2 19 

02220 

ADD 

HL, DE 


BFE3 ED42 

02230 

SBC 

HL, BC 


BFE5 EB 

02240 

EX 

DE, HL 


BFE6 El 

02250 

POP 

HL 


BFE7 C9 

02260 

RET 



BFE8 D5 

02270 ABS 

PUSH 

DE 


BFE9 ES 

02280 

PUSH 

HL 


BFEA 2AD640 

02290 

LD 

HL, (STRZG) 


■ BFED A7 

02300 

, AND 

A 


BFEE ED5BA040 

02310 

LD 

DE, (3TRSPC) 

* 

BFF2 ED52 

02320 

SBC 

HL, DE 


BFF4 EB 

02330 

EX 

DE, HL 


BFF5 13 

02340 

INC 

DE 


BFF6 El 

02350 

POP 

HL 


BFF7 DF 

02360 

RST 

18H 


BFF8 Dl 

02370 

POP 

DE 


BFF9 C? 

02380 

RET 



BFFA 1E1A 

02390 ABT 

LD 

E, OSERR 


BFFC C3A219 

02400 

JP 

ERROR 


BFFF ÖO 

02410 FLAG 

DEFB 

0 


00 1A 

02420 OSERR 

EQU 

00 IAH 


0060 

02430 DELAY 

EQU 

006 OH 


0089 

02440 INPUT 

EQU 

0089H 


00B2 

02450 PRINT 

EQU 

00B2H 


01E4 

02460 BLINK 

EQU 

Ö1E4H 


■ 01 ED 

02470 READB 

EQU 

01EDH 


02 1F 

02480 WRITEB 

EQU 

021 FH 


35A9 

02490 INI TW 

EQU 

35A9H 

J 
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02 4C 

02500 

0AF6 

0251 0 

19A2 

02520 

260D 

02570 

273D 

02540 

28E6 

02550 

40A0 

02560 

40AF 

02570 

40Dö 

02580 

40FB 

02590 

417D 

02600 

BE6F 

02610 

00000 TOTAL 

ERROPS 


INITR 

EOU 

02 4 CH 

TMERR 

EOU 

0AF6H 

ERROR 

EQU 

19A2H 

SV AR 

EDÜ 

260DH 

BSERR 

EQU 

2 7 7DH 

C-0LL.EC 

EOU 

2BE6H 

STRSPC 

EQU 

40A0H 

typx 

EÖU 

40AFH 

STRZG 

EQU 

40D6H 

ARRTAB 

EQU 

40FBH 

FIELDV 

EÜU 

417DH 


END 

INIT 


31585 TEXT AREA BTTES LEFT 
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oo i oo 


; ASEG 


BE°D 


00110 


ORG 

0BE9DH 



00120 


A 

t 


BE?D 

2A7D41 

00130 

INIT 

LD 

HL, (FIELDV) 

BEAO 

22B3BE 

00140 


LD 

( AAZ+1 > , HL 

BE A3 

21ACBE 

00 1 50 


LD 

HL, AAY 

BEA6 

227D41 

00160 


LD 

(FIELDV) ,HL 

BEA? 

C3191A 

00 170 


OP 

1A19H 



00180 


■ 


41 CA 


00190 

WEISE 

EQU 

4ICAH 

41 BE 


00200 

WDISKE 

EGU 

41BEH 

032A 


00210 

GUTEN 

EQU 

032AH 

0013 


00220 

INCHW 

EQU 

0013H 

C7BD 


00230 

BUFFER 

EQU 

0C7BDH 



00240 


* 


BEAC 

FE89 

00250 

AAY 

CP 

INPUT 

BEAE 

CA28BF 

00260 


JF' 

Z, ABI 

BEB 1 

FEB2 

00270 


CP 

PRINT 

BEB3 

2805 

00280 


JR 

l , ABA 

BEB5 

2B 

00290 


DEC 

HL 

BEB6 

D7 

00300 


RST 

10H 

BEB7 

C 3 0000 

00310 

AAZ 

JP 

0 

BEBA 

07 

00320 

ABA 

RST 

10H 

BEBB 

CDCA4 i 

00330 


CALL 

WDISK 

BEBE 

2B 

00340 


DEC 

HL ' 

BEBF 

D7 

00350 

ABB 

RST 

1ÖH 

BECO 

CDBBBF 

00360 


CALL 

SARRAY 

BEC3 

7B 

00370 


LD 

A,E 

BEC4 

CD2A03 

00380 


CALL 

OUTCH 

BEC7 

7A 

00390 


L.D 

A,D 

BEC8 

CD2A03 

00400 


CALL 

OUTCH 

BECB 

3AAF40 

00410 


LD 

A, (TYPX) 

BECE 

FE 03 

00420 


CP 

*7 

BEDO 

2043 

00430 


JR 

NZ,ABG 

BEB2 

E5 

00440 


PUSH 

HL 

BE 03 

C5 

00450 


PUSH 

BC 

BED4 

D5 

00460 


PUSH 

DE 

BED5 

210000 

00470 


L.D 

HL. , 0 

BED9 

OA 

00480 

ABC 

LD 

A, (BC) 

BED9 

85 

00490 


APD 

A,L 

BEDA 

öF 

00500 


LD 

*-,A 

BE DB 

7C 

00510 


LD 

A,H 

BEDC 

CE 00 

00520 


ADC 

A,ö 

BEDE 

67 

00530 


LD 

H, A 

BEDF 

1B 

00540 


DEC 

DE 

BEEO 

1B 

00550 


DEC 

DE 

BEE1 

1B 

00560 


DEC 

DE 

BEE2 

03 

00570 


INC 

BC 

BEE3 

03 

00580 


INC 

BC 

BEE4 

03 

00590 


INC 

BC 

BEE5 

7A 

00600 


L.D 

A, D 

BEE6 

B3 

00610 


OR 

E 

BEE7 

20EF 

00620 


JF: 

NZ , ABC 

BEE9 

7D 

00630 


LD 

A,L 

BEEA 

CD2A03 

00640 


CALL. 

OUTCH 

BEED 

7C 

00650 


LD 

A,H 

BEEE 

CD2A03 

00660 


CALL 

OUTCH 

BEF 1 

Dl 

00670 


PGP 

DE 

BEF2 

El 

00680 


POP 

HL 

BEF3 

05 

00690 

ABD 

PUSH 

DE 
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BE p 4 

56 

00 • 7, ' i 0 

LD 

D, -HL' 

BEF5 

23 

00 7 1 A 

INC 

HL. 

BEF 6 

4E 

00720 

LD 

C, ' HL ) 

BEF” 

2 _■ 

OO" 7 ”' > 

3 NC 

HL. 

BE FS 

4,6 

iOo _7 40 

LD 

B, 1 HL ' 

BEF Q 


00750 

INC 

HL 

BEFA 

7A 

00 7 60 

LD 

A,r 

BEFP 

CD2A07 

o07 7 0 

CALL 

OUT CH 

BFFE 

A7 

'00780 

AND 

A 

BEFF 

2908 


JR 

2, ABF 

BFOI 

OA 

'.'OB'*".' ABE 

LD 

A, »BO 

BF 02 

CD2A03 

( '■‘OS 3 0 

CALL 

DUTCH 

BF05 

(03 

0 , ' , ö 2 ( i 

INC 

BC 

BF 06 

15 

0 , ' , 83O 

DEC 

D 

BFO 7 

20F3 

00 t 40 

JR 

NZ , ABE 

BF 09 

ni 

00850 ABF 

POP 

DE 

BF 1 *A 

1B 

, > 0 Sü 0 

DEC 

DE r * 

BFOB 

1P 

008~0 

DEC 

DE 

BFOC 

1B 

oosso 

DEC 

DE 

PF OD 

~H 

•.>09*0 

LD 

A,D 

BFOE 

E‘3 

00900 

OR 

E 

BF OF 

20E2 

009 1 ft 

JR 

H2 , ABD 

BF 3 1 

El 

O’.'VZ'O 

POP 

HL 

PF i 2 

C31FBF 

0003 ,-, 

JP 

ABU 

BF 15 

1 »A 

'00940 AB 6 

LD 

A, ' E'C 1 

PF 16 

CD2A03 

''>"950 

CALL 

DUTCH 

BF 19 

>'iZ 

(0*0960 

INC 

BC 

P r l A 

JP 

00970 

DEC 

DE 

BFlB 

7A 

0*098';' 

LD 

A,D 

BF 3 C 

B 2 

oo oo, o 

OP 

E 

BF1D 

20 F 6 

0 1 OoO 

JR 

N. , AEG 

E J F1F 

7 E 

03 Ol * 1 ABU 

LD 

A, • He) 

BF 20 

FE 2 C 

03 020 

C p 

? * 
* 

pf::2 

i AFF BE 

0 1 07*.' 

JP 

Z , ABE' 

BF 25 

C7BE41 

1 > 1 m^Vi 

JP 

WD I bi E 

BF 28 

CD282P 

■'1050 ABT 

ChLL 

28Z&H 

BF2B 

LDBDC*' 

t [)U M 

CALL. 

BUFFER 

BF2E 

LF 

)l] il/M 

RST 

8H 

BF2F 

2 C 

OI 08 O 

DEFB 

H 

PF 20 

E5 

0 { n3n 

PL l 5H 

HL 

BF 21 

210200 

0 1 1 00 

LD 

Hl, 2 

BF 2 4 

0 ° 

03 1 JO 

ADD 

HL , BC 

BF 35 

22FEBF 

Oll 20 

LD 

LFCBl ,HL. 

bf :8 

F J 

01120 

PÖP 

HL 

BF 39 

2B 

01140 

DEC 

HL 

BF? A 

P7 

0 1 3 5*0 ABÖ 

Rbl 

J'*‘H 

BF3B 

C DBB BF 

*0 1 3 6 Ö 

CALL 

EARRAi 

BF3E. 

CDEABF 

Ol 170 

CALL 

re^dp 

PF41 

PB 

01180 

CP 

E 

BF42 

T -.-'r,'-.-» 

** * T Jh *44- 

0 3 1 9’ • 

JP 

N 2 , BSFRF 

EF45 

CDEABF 

0 J 200 

CAL [ 

PEADB 

PF4P 

PA 

01210 

CF* 

1 . 

BF49 

C23D27 

Ml 220 

JP 

NZ , BrERF; 

BF4C 

3HAF^0 

03 270 

LD 

A, -TypX» 

BF4F 

FE 03 

0124" 

CP 

-t 

_< 

PF51 

205 7 

0 3 250 

J p 

m , ABF 

BF 5 '2 

E5 

>■’ 1 2 60 

PUSH 

HL 

PF 54 

CDEABF' 

ft 1 3 7 0 

CALL 

PE A- ‘P 

BF5 -1 

6 F 

0 125'" 

L.D 

L. H 

PF 53 

CDEABF 

0 3 290 

ChL L. 

PEA 6 -B 


^ “i * * * 
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BF5B 67 

0 1 300 

LD 

H, A 

BF5C CDD3BF 

01310 

CALL 

ABS 

BF5‘ r 3817 

01320 

JR 

C, ABL 

BF 61 C5 

01330 

PUSH 

BC 

BF62 B5 

01340 

PUSH 

DE 

BF63 AF 

01350 ABK 

XQR 

A 

BF 64 02 

01 360 

LD 

(BC) ,A 

BF65 03 

01370 

INC 

BC 

BF66 1B 

01380 

DEC 

DE 

BF67 7A 

01390 

LD 

A, D 

BF 68 B3 

01400 

OR 

E 

BF 69 20F8 

01410 

JR 

NZ,AÖK 

BF6B E5 

01420 

PUSH 

HL 

BF6C CDE628 

01430 

CALL 

COLLEC 

BF6F El 

01440 

POP 

HL 

BF70 Dl 

01450 

POP 

DE 

BF71 CDD3BF 

01460 

CALL 

ABS 

BF74 CI 

01470 

POP 

BC 

BF75 D2E5BF 

01480 

JP 

NC, ABT 

BF78 69 

01490 ABL 

LD 

L.,C 

BF79 60 

01500 

LD 

H,B 

BF7A D5 

015 iO ABM 

PUSH 

DE 

BF7B CDEABF 

01520 

CALL 

READB 

BF7E 77 

01530 

LD 

(HL) , A 

BF7F 23 

0 1 540 

INC 

HL 

BF80 E5 

01550 

PUSH 

HL 

BF81 2AD640 

01560 

LD 

HL, (STRZG) 

BF84 4F 

01570 

LD 

C,A 

BF85 0600 

01580 

LD 

B,0 

BF87 A7 

01590 

AND 

A 

BF88 ED42 

01600 

SBC 

HL, BC 

BF8A 22D640 

01610 

LD 

(STRZG) , HL 

BF8D 23 

01620 

INC 

HL 

BF8E EB 

01630 

EX 

DE, HL 

BF8F El 

01640 

POP 

HL 

BF90 73 

01650 

LD 

(HL) ,E 

BF91 23 

01660 

INC 

HL 

BF92 72 

01670 

LD 

(HL) ,D 

BF93 23 

01680 

INC 

HL 

BF94 A7 

01.690 

AND 

A 

BF95 2808 

0 1 700 

JR 

Z , ABO 

BF97 CDEABF 

01710 ABM 

CALL 

READB 

BF9A 12 

01720 

LD 

(DE) , A 

BF9B 13 

01730 

INC 

DE 

BF9C OD 

01740 

DEC 

C 

BF9D 20F8 

01750 

JR 

NZ , ABN 

BF9F Dl 

01760 ABO 

POP 

DE 

BFAO 1B 

01770 

DEC 

DE 

BFA1 1B 

01780 

DEC 

DE 

BFA2 1B 

01790 

' DEC 

DE 

BFA3 7B 

01800 

LD 


BFA4 B2 

01810 

GF; 

D 

BFA5 20D3 

01820 

JR 

NZ, ABM 

BFA7 El 

01830 

POP 

HL 

BFA8 18ÖA 

01840 

JR 

ABQ 

BFAA CDEABF 

01850 ABP 

CALL 

READB 

BFAD 02 

01860 

LD 

(BC) , A 

BFAE 03 

01870 

INC 

BC 

BFAF 1B 

01880 

DEC 

DE 

BFBO 7A 

01890 

LD 

A, D 


'/“TV ’ V*. 
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BFB1 B7 

01900 

OP 

8FB2 20F5 

01910 

JP 

BFB4 7 E 

01920 ABO 

LD 

BFB5 FE2C 

01 Q 3 U 

CP 

BFB7 CA3ABF 

01940 

JP 

BFBA C* 

01950 

RET 

BFBB CD0D26 

01960 SARRAT 

CALL 

BF BE E5 

01970 

PUSH 

BF BF 2AFB40 

01980 

LD 

B C C2 ED52 

01 9 Q 0 

SBC 

BFC4 D2F60A 

02 (.>00 

JP 

BFC" 7 3AAF40 

02010 

LD 

BFCA öF 

02020 

LD 

BFCB 2600 

02030 

L.D 

BFCD 1 Q 

02040 

ADD 

BFCE ED42 

02050 

SBC 

BF DO EB 

02060 

EX 

BF Dl El 

02070 

POP 

BFD2 C9 

02 080 

RET 

BFD3 D5 

02090 ABS 

PUSH 

BFD4 E5 

02 1 HO 

PUSH 

RFP5 2AD640 

02110 

LD 

BFD8 A7 

02120 

AND 

PFD9 ED5BA040 02130 

LD 

BFDD ED 32 

02 1 40 

SBC 

PFDF EB 

02150 

E> 

BFEO 13 

02160 

INC 

BFE1 El 

021 70 

PGF‘ 

BFE2 DF 

02180 

RST 

BFE3 Dl 

02190 

POP 

BFE4 C9 

02200 

RET 

BFE5 1E1A 

02210 ABT 

LD 

BFE7 C3A219 

02220 

JP 

BFEA DD 

02230 F'.EADB 

PUSH 

BFEB ED5BFEBF 02240 

LD 

BFEF CD 1300 

02250 

CALL 

BFF2 Dl 

02260 

POP 

BFF3 C8 

02270 

RET 

BFF4 CBFF 

'*>2280 

SET 

AFFE CD0*?44 

022^0 

CALL 

BFF9 1E66 

02300 

LD 

PFFB C3A21 Q 

02310 

JP 

BFFE 0000 

02320 FCB 

DE FW 


02330 

* 

00 1A 

02340 05ERR 

EQU 

0089 

02350 INPUT 

EQU 

00 B2 

02360 PRINT 

EQU 

OAF 6 

023 70 THE RR 

EQU 

1 9A2 

02380 ERROR 

EDU 

260 D 

02390 SVAR 

EQU 

273D 

02400 BSERR 

EQU 

2SE6 

02410 COLLEC 

EQU 

40A0 

02420 5TRSPC 

EOU 

40 AF 

02430 TTPX 

EQU 

40Dö 

02440 STR ZG 

EQU 

40FB 

02450 ARRTAP 

EQU 

4 1 7D 

02460 FIELDV 

EQU 

BE9D 

02470 

EHE* 

00000 TOTAL 

E PRO PS 


31843 TEaT 

AREA BVTE5 LEFT 



E 

NZ , hBF 
A, * HL * 

Z.hBJ 

svar 

HL 

HL, 'ARFT AB > 

HL, DE 
NC.TMEFR 
A, -Trt-V 
L,A 
H , 0 
HL, DE 
HL, IC 

DE, HL l * 'n-i>-Äv 

HL 

DE 

HL 

HL, \STPIG > 

A 

DE, 1 ETPSF’C) 

HL, DE 

DE, HL 

DE 

HL 

18H 

DE 

E,DSEPP 

EPRCF 

DE 

DE , ^ F L*B * > V—* ^ *r- i i ' ** . 

INC HW 
DE 

7 , A 
4409H 
E, 102 
ERROR 


001 AH 

ooe*H 

00B2H 

OAF eiH 

19A2H 

2&0DH 

273DH 

28EtH 

4 f ‘>A0H 

40AFH 

4 , .*D6H 

40FBH 

417CH+1 

IM1T 
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2.4.1 Kopierprogramm COPBIT 


COPBIT kopiert Co 1 our-Gen i e-Kassetten Bit für Bit und 
ermÖgl icht somit einfaches Kopieren praktisch al 1er 
Co 1 our-Gen i e-Kassetten ohne Kenntnis des 

Auf ze i chnungsf ormates : 

1 ) Systemkassetten 

2) Bas i ckassetten 
3 > Daten kassetten 

4) geschützte Formate 

z . B . mit Prel oader und /oder Baudrateumscha 1 tung 
Funkt i on 


COPBIT liest Kassetten Bit für Bit ein und achtet dabei 
nicht auf das Format. Unterbrechungen mit Bit-Strom werden 
erkannt und führen auf Uunsch automatisch zum Abbruch des 
^ * ... ' ■ — Ladens. Erst nach dem Laden wird das Format analysiert und 

bei Systemf i les werden die Prüf summen , bei Bas i cf i les das 
Po i nter System überprüf t , Be im Schreiben auf Kassette wird 
der ei ngel esene Bit-Strom C auf eine ganze Anzah 1 von Bytes 
ergänzt) aus dem Spe icher wieder auf Kassette kop i ert . 
Preloader , Baudrateumscha 1 tung und Autostart stellen für 
COPBIT keine Probleme dar . 

COPB I T wurde mit dem 11ACRO-80 von H i er osoft entw i ekelt . 
Dabei wurden viele seiner besonderen Möglichkeiten 

ausgenutzt . I nsbesonders sind di es die MACRO 's und die 
Pseudo-Anwe i sungen .PHASE und .DEPHASE. Nur so konnte das 
Programm derartig gesta 1 tet werden , daß der vorhandene 
Speicher optimal ausgenutzt wird Csiehe Technische 
Anmerkung). Diese Version ist natürlich nicht für den 
COLASM geeignet. Daher ist das Programm in einer für den 
COLASM bearbeiteten Version aufgelistet, die auch auf der 
Quell programmkassette- und d i skette entha 1 ten ist. Diese 
Version laßt etwas weniger Speicher als unten angegeben für 
die zu kopierenden Programme frei . 


T«chni sehe Anmerkung s 


CÖPBIT benutzt verschiedene Spe i cherber e i che , die im 
Co 1 oui — Gen i e— System e i gent lieh für best i mmte Systemaufgaben 
reserv i ert sind. Daher ist es n i cht mög lieh nach dem Laden 
von COPB IT einen RESET durchzuf Uhren . D i es f ührt 
unwe i ger 1 i ch zu e i ner Fehlfunktion, da dadurch viele 
Programmte i 1 e von COPBIT zerstört werden. Ein Teil von 
COPB IT i st i m Spe i eher für die frei programm i er baren 2e i chen 
unter gebracht , wodurch manchma 1 kleine Bi ldsch i r ms tör ungen 
auf treten . Durch d i ese i ntens i ve Ausnutzung des Spe i eher 
war es aber mög 1 ich 30526 C =773EH i m 32K -System , im 
16K-System: 14142 - 373EH) Bytes für das zu kopierende File 
zur Verf ügung zu ste 1 1 en . ] 
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Nachdem COPBIT erfolgreich geladen ist, 
Hauptmenue : 


meldet sich das 


COPBIT V3.0 Kassettenkop i erprogramm 
Kopiert beliebige Kassetten bitweise. 
CO 1984 Luidger Roeckrath, 5100 Aachen 
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Durch Antippen der Buchstaben in <> kann die entsprechende 
Funktion angewählt werden. Ist die jeweilige Funktion 
beendet, wird automatisch ins Hauptmenue zurückgekehrt . 

In den beiden Kästen hinter "Funktion:” wird der Zustand 
der Flags für die Automatik und den Drucker angezeigt. "A” 
bedeutet Automatik an, ”D” bedeutet Drucker ein. 
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Laden 


Nach der Aufforderung > den Kassettenrecorder 

u i edergabebere i t zu machen und deren Bes tat i gung, beg i nnt 
COPBIT das Programm zu lesen . Soba 1 d der Header erkannt 
wurde , ersehe inen in der oberen , rechten B i 1 dsch i rmecke die 
zue i Sterne . Das File wird von da an Byte für Byte 
e i ngel esen und im Spei eher abge 1 egt . Sol 1 te eine 
Auf ze i chnung am Ende ke i n vo 1 lständ i ges Byte mehr haben 
(bei geschützten Formaten), werden auch die restlichen Bits 
richtig gel aden und gespe i chert . 

Während des Ladens läuft in der Bi 1 dsch i rmmi tte der 
eingelesene Text durch. Weiterhin wird bei Systemfiles ein 
F gefolgt vom Filenamen, ein B für jeden Block und ein E 
f ür den Entrypoi ntblock angeze i gt . 

Beispiel: COLHON 

FCOLHONBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBE 

Das Laden wird unter folgenden Bedingungen gestoppt : 

1 ) Automatik Ein (Startbed ingung) 

soba Id eine Pause in der Aufzeichnung auf tri tt . 

2 > Automatik Aus 

sobald eine Pause auftritt und die < BREAK >-Taste gedrückt 
u i rd . 

Will man den Ladevorgang mitten in einer Aufzeichnung 
beenden , kann man die Pause durch Anhai ten des 

Kassettenrecorder erzeugen . Auch wenn der Header gesucht 
wird, also bevor die zue i Sterne erscheinen , ist es 
*• mög 1 i ch , den Lade vor gang abzubrechen . Hier i st nur 

erforderlich die < BREAK >*Taste zu drücken, der 

Kassettenrekorder braucht nicht angeha 1 ten zu werden . 


i 
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Analyse der geladenen Aufzeichung 


Nach Beendigung des 
Aufzeichnung analysiert . 
sich um ein System- oder 


Ladevorgangs wird die geladenen 
Dabei wird festgestellt, ob es 
Bas 1 cf i 1 e hande 1 1 : 


1 ) Systemf i 1 e : | 

Das Format für Systemfiles ist folgendes (siehe auch 
Co 1 our-Gen i e-ROtl-L i st i ng ) : 


Fi 1 ename 
Block: 

Entry : 

Beispiel 


55H 6 Bytes Filename 

3CH Länge Startadresse (LSB/MSB) Datenbytes 
Pr üf summe 

78H Entrypoint (LSB/MSB) 

COLMON (6000H-6FFFH ) 


F i 1 ename : 
Block : 


Block 

Entry 


55H 43H 4FH 4CH 4DH 4FH 4EH = 55H COLMON 

3CH 80 H 00 H 60 H ( 1 28 Daten byt es ) ( Pr üf summe ) 

= 6000H-607FH 
<30 ähnliche Blöcke> 

3CH 80H 80 H 6FH C128 Datenbytes) (Prüf summe) 

= 6F80H-SFFFH 
78H 00H 60 H = 6000H 


COPBIT erkennt automatisch das Systemformat und gibt in 
obigen Beispiel aus: 


Systemf i 1 e : C0L110N 

Block : 6000H-6FFFH 

Entry : 6000H 




Bilden mehrere Blöcke des Systemfiles einen 
zusammenhängenden Spe i eher bl ock , ui rd nur di eser angeze i gt 
(siehe Beispiel.). 

Bei Blöcken zu i sehen 1 und 3 Bytes Länge uird zusätzl ich 
der Inhalt des Blocks angezeigt. Da diese Blöcke oft 
Sprungvektoren sind, die überschrieben werden, ist diese 
Information besonders wertvoll . Ein Sprungbefehl der auf 
die Adresse 41E2H-41E4H geladen uird, bedeutet einen 
Autostart . Sie können a 1 so sofort die Startadresse e i nes 
Programmes mit Autostart ablesen, z.B.: 


Block : 41E2H-41E4H : C3H E8H 41H 


bedeutet, daß sobald der Entry im Systemfile erreicht, 
automatisch die Adresse 41E8H angesprungen uird. 

Bei fehlerhaften Bl öcken uird nur der Block des 
Systemflies, der den Fehler enthielt, entsprechend markiert 
ausgedruckt: 1 

Systemfile: COLMON 
Block : 6000H— 637FH 

Block : 6380H-63FFH! ! ! Fehler ! ! ! 
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Block : 6400H-6FFFH 

Entry : 6000H 


Vor jedem Block (55H, 3CH , 78H) können zusätzliche Bytes 
stehen , die vom System-Loader i m ROM einfach überl esen 
werden. COPBIT zeigt deren Anzahl an. Bei Fehler erscheint 
auch häufig diese Anzei ge : 


Systemf i 1 e : 
Block : 
Block 

zus . Bytes: 
Block : 
Entry : 


C0L110N 
6000H-637FH 
6380H-63FFH! ! t 
0073H 

6480H— 64FFH 
6000H 


Fehler !!! 


Auch nach dem Entry können bei geschützten Formaten 
zusätz liehe Bytes auftreten. 


2 ) Bas ieprog ramme 

Bas i eprog ramme werden f o 1 gender maßen auf gezei chnet : 

Filename: 1 Byte 

Basi ctext , wie im Speicher ei nsch 1 ie8 1 i ch der dre i 0 am 
Ende. 

< S i ehe Co 1 oui — Gen i e-ROH-L i st i ng } 

Basi eprogramme ent ha lten keine Prüf summe , aber durch das 
Po i nter System (jede 2e i 1 e ent hä 1 1 ei nen Pointer auf die 
nächte Ze ile) kann die ge ladene Aufzei chnung i m geu i ssen 
Rahmen geprüft werden, wobei es unerheblich ist, wo das 
Basi eprogramm vorher i m Spe i eher stand . 

Beispiel : Demoprogramm 

Bas i cf i 1 e : D 


Be i Fehlern i m Po i nter System wird für jeden falschen 

Pointer die tleldung Fehler ausgegeben: - - - - . * 

Basi cf i 1 e : D 

! ! t Fehler !!! 

Mi Fehler !!! 

I 

J 

Bei beiden Filetypen kann eine weitere Fehlermeldung 
erscheinen : 

i 

File zu kurz . i 

Diese erscheint zum Beispiel, wenn ein Systemprogramm 
m i tten im Bl ock abbr i cht oder der Entry fehlt und be i ei nem 
Bas i eprogramm , wenn die drei 0 am Ende fehl en ♦ 

Be i Daten au f ze i chnungen kann entweder n i chts ersehe inen 
oder es kann zufällig als einer der Filetypen erkannt 
werden . Dann erscheinen höchstwahrscheinlich zahlreiche 
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Feh 1 ermel düngen . 

Fehlermeldungen beeinträchtigen den Kopiervorgang nicht. 
Sie dienen nur zur Kontrol le. 

Eine gel adene Auf zei chung steht bis zum nächsten Laden für 
Vergleiche und zum Aufzeichnen zur Verfügung 

Die Analyse des Files wird bei eingeschaltetem Drucker C<D> 
im Hauptmenue) paralei 1 zur Bildschirmausgabe auf den 
Drucker ausgegeben. 


V 


g 1 «i eher» 


J' ^ i ' ' ' L " * J ,V>*Vrv r > + '?***£**' * ^ L . r t- \ ++1 *1 wr ^ j(yjy 


Die in den Spe i eher gel adenen Auf zei chung kann mit ei ner 
weiteren verglichen werden (zum Beispiel eine angefertigte 
Kopie) . Abbruch wie beim Laden und automatisch beim 1 . 
Ladefeh 1 er . Be i m Verg lei chen wird der ei nge 1 esene Text 
nicht auf dem B i ldsch i rm angeze i gt . Die Anze i ge "Fname 
BBBBBBBBBBE” erscheint, wenn das zu vergleichende File mit 
”L" geladen wurde, und nicht, wenn es mit W F M geladen 
wurde . 


Schr-ei ben 




Kassettenrecorder zur Aufnahme bereit machen und dies 
bestät i gen . Dann erf o 1 gt die Abfrage: 

Kopi enanzah 1 ? 

Sie können mit <ENTER> oder e i ner Ziffer antworten . Es wird 
dann automatisch eine entsprechende Anzahl von Kopien (bei 
< ENTER > = 1 ) hi ntere i n ander erzeugt . Zwischen 2 Kopien wird 
automat i sch ei ne Pause von ca . 5 Sekunden e i ngeschoben . 
Abbruch des Sehre i bens ist jederze i t außer während der 
Pause durch Drücken der < BREAK >-Taste mög lieh. 
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Die komplexen Anal ysevorgänge beim Laden machen das Laden 
mit COPB I T etuas kr i t i scher als das norma le Einladen mit 
CLO AD oder SYSTEM . Desha 1 b kann mit <F> eine ue i tere 
Lader out ine auf gerufen werden » die während des Laden nur 
den Text durchlaufen läßt» aber nicht "Fname BBBBBE” 
ausdruckt . Dadurch werden viele 1 angw ier ige Opera t i onen 
eingespart und das Laden ist erheblich unkritischer. Bei 
Ladeproblemen helfen im übrigen oft auch folgende Tips: 

1 ) Höhen auf Maximum 

2) Tonkopf j ustage : Während der Wiedergabe auf maximale 
Höhenwiedergabe (deutlich zu hören) abstimmen. Nach 
erfolgrei ehern Laden wieder auf Ihre St and ar de i nste 1 lung mit 
einer I hrer alten Kassetten einstel 1 en und dann die Kopien 
anf ert i gen . Die COPBI T-Kassette ist übr i gens auf einem mit 
ei ner Az i mu t-Normkassette geeichten Kassettenrekorder 
auf geze i chnet . 

3 ) Lautstärke : Be i manchen Auf zei chungen hilft starkes 
übersteuern» bei anderen aber eher eine etwas niedrigere 
Wahl der Lautstärke (2) . 




Die Automatik (Abbruch des Laden» wenn eine Pause auf tritt) 
kann abgescha 1 tet werden » wenn eine Auf ze i chnung mit Pausen 
geladen werden soll. Beim Starten des Programmes ist die 
Automatik ein. Durch Eingabe einer <A> im Hauptmenue kann 
sie ab- und wieder ei ngescha 1 tet werden . Der Zustand des 
Automatikflags kann im Hauptmenue jederzeit im linken 
Kasten abgelesen werden . 

*** '* * ^ *' 4 — ' ' ' ' iJT' i , +\ 4 • ** ", * 




J 

Die Analyse eines geladenen Files kann wahlweise auf einen 
Drucker zusätzlich ausgedruckt werden. Wenn Sie dies 
wünschen , müßen Sie im Hauptmenue das < D > antippen . Mit der 
gleichen Taste können Sie den Drucker wieder abschalten. 
Der jewe i 1 i ge Zustand kann im rechten Kasten abge 1 esen 
werden . B i tte achten Sie darauf, daß be i e l ngescha 1 tetem 
Drucker , auch w i rkl i ch ein Drucker angeschlossen und ON 
L I NE ist. Sonst bleibt das Programm nach dem Laden stehen ! 


3 
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Zah 1 re i che Programme für das Col our— Gen ie sind in ei nem 
geschützten Format aufgezeichnet, und lassen sich nicht 
mit ei nem norma len Kopi er programm kop i eren . Durch das 
völlig neue Konzept von COPBIT können praktisch alle für 
das Colour- Genie angebotenen Programme mit hohem Komfort 
kopiert werden . 

Pre 1 oader 


Viele geschützte Formate arbeiten mit Preloader, d. h. die 
Auf ze i chnung beg i nnt mit einem kurzen Teil im Systemformat , 
der einen Autostart (s.o. und ROtl-Listing) enthält. Danach 
kommt ein be 1 ang 1 oser Entry und dahinter noch zah lrei che 
Bytes in einem anderen Format (vom Programmautor erfunden), 
welche von COPBIT als "zus. Bytes’* ausgegeben werden. Beim 
Laden mit dem System-Bef eh 1 wird der erste Teil Cder 
Preloader) in den Spe icher geladen und nach dem bei ang 1 osen 
Entry wird an die Autostartadresse gesprungen , wo nun der 
Preloader startet und mit Hilfe der ROH-Routinen den Rest 
des Programmes im speziellen Format lädt. Dieser Trick läßt 
die meisten Kopierprogramme scheitern, da Sie den 
Lade vor gang be i m Entry abbrechen . COPBIT aber lädt so lange 
von Kassette bis eine Pause kommt und 1 egt die ge 1 adenen 
Bytes e i nsch 1 i eö 1 i ch aller Steuerzeichen hintereinander 
unverändert im Speicher ab . Erst nach beendeten Laden wird 
dort analysiert. Be i m Schreiben u i rd all es wieder genauso 
auf Kassette gespe i chert wie es vorher e i nge 1 aden wurde . 
Pre 1 oader auf ze ichnungen lassen s i ch ohne we i teres mit 
COPBIT kopieren. 

Baudrateumscha 1 tung 


Ein anderer wei tverbrei teter Kopi erschutztr ick ist die 
Veränderung der Baudrate. Beim Colour-Genie können durch 
Bel egen von besti mmten Spe i cherze 1 1 en mit best i mmten Werten 
die Aufzeichungs- C4310H + 4311H) und Ladebaud rate ( 43 1 2H ) 
in weiten Rahmen verändert werden. COPBIT erkennt beim 
Laden Veränderungen der Baudrate C= Veränderungen der 
Spe i cherze 1 le 4312H) und führt diese entsprechend aus um 
mit der r i cht igen Baudrate zu laden. Di ese f a 1 sehen Werte 
werden aber sofort durch den Standardwert ersetzt i m 
Spe icher abge 1 egt < bei der Analyse können Sie das bei 
B 1 öcken f o 1 gender Art erkennen : B 1 ock : 431 2H-431 2H : 
69 H ) . Die Baudrateumscha 1 tung können Sie aber auch schon 
während des Lade vor ganges an der Geschwindigkei tsanderung 
des durchlaufenden Textes erkennen. Die Kopie wird ohne 
Baudrateumscha 1 tung erste 11t, und da alle entsprechenden 
B 1 öcke durch die Standardwerte unschädl ich gemacht worden 
sind, ist diese Aufzeichnung trotzdem e i nwandf re i lauffähig 
und geringfügig kürzer. Bänder mit Baudrateumscha 1 tung 
können nicht mit <F> geladen werden , da dann die Anal yse , 
die die Baudrateumscha 1 tung erkennt , entfällt. 


I 



2.4,2 Kopierprogramm COPBIT - Quellprogramm 


Seite 138 




00 1 00 

; copbit 



001 10 

* 

9 

' 



00120 

; Kopiert Col our-Gen 



00130 

00140 

• 

; <c> 

Luidger Röckra 



00150 

• 

J 

Noppiusstr. 19 



00160 

* 

f 

5100 Aachen 



00170 

00180 

00190 

00200 

» 

9 

e 

9 

e 

9 

9 

9 

(0241)34962 

000D 


00210 CR 

EQU 

ODH 



00220 

I 




00230 

• 

i 


4600 


00240 

GRG 

48Ü0H 



Cs 0250 

* 

1 




00260 

; ASEG 


4800 

F3 

00270 START 

DI 


4801 

31 694 C 

00280 

LD 

SP, BUFFER 

4804 

3E69 

00290 

LD 

A, 105 

4806 

321243 

00300 

LD 

(4312H) , A 

4809 

3E03 

00310 

LD 

A, 3 

480B 

CDB03F 

00320 Wr 

CALL 

3FB0H 

480E 

21D9F4 

00330 

LD 

HL, TEXT1 

4811 

CD13F4 

00340 

CALL 

PRINT 

4814 

CD2B00 

00350 ST 1 

CALL 

INCH 

4817 

FE61 

00360 

CP 

’ a* 

4819 

3802 

00370 

JR 

C, ST2 

481B 

D620 

00380 

SUB 

’a’-’A’ 

48 ID 

FE4C 

00390 ST2 

CP 

’L’ 

481F 

2S1C 

00400 

JR 

2 , LADEN 

4821 

FE53 

00410 

CP 

? S’ 

4823 

CAC74A 

00420 

JP 

Z, SCHREI 

4826 

FE56 

00430 

CP 

’V’ 

4828 

CA374B 

00440 

JP 

Z, VERGLE 

482B 

FE41 

00450 

CP 

’A’ 

4B2D 

CAB44A 

00460 

JP 

ZjAUTOM 

4830 

FE44 

00470 

CP 

, D’ 

4832 

CA00F4 

00480 

JP 

Z,DREA 

4835 

FE46 

00490 

CP 

*F' 

4837 

CA3C48 

00500 , 

JP 

Z , FTAPEL 

483A 

18D8 

00510 

JR 

ST 1 



00520 

* 

n 




00530 

*, Fehlerhaft es Tape 



00540 

* 

1 


483C 

3E 

00550 FTAPEL 

DEFB 

3EH 

483D 

AF 

00560 LADEN 

XOR 

A 

4S3E 

32FBF7 

00570 

LD 

(FTF) , A 

4841 

2184F6 

00580 

LD 

HL, TEXT2 

4344 

CD13F4 

00590 

CALL 

PRINT 

4847 

2 1 0000 

00600 

LD 

HL, 0 

484A 

22EFF7 

00610 

LD 

(LSTREC) , HL 

484D 

22EDF7 

00620 

LD 

(LSTRAC) , HL 

4850 

CD8F4B 

00630 

CALL 

WA IT 

4853 

21E0F6 

00640 

LD 

HL, TEXT 6 

4856 

CD13F4 

00650 

CALL 

PRINT 

4859 

117F46 

00660 

LD 

DE, 467FH 

485C 

211CCB 

00670 

LD 

HL, 0CB1CH 

485F 

226C4B 

00680 

LD 

(READY) , HL 

4862 

FD2A2040 

00690 LAD 

LD 

IY, (4020H) 








J — LD Aj * * 
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4866 3E55 

00700 

LD 

a, ? u : 

4868 328648 

00710 

LD 

(Ll 1 10+1 ) , A 

4S6B 21684C 

00720 

LD 

HL, BUFFER- 1 

486E CDF54B 

00730 

CALL 

READS 

4871 DA414A 

00740 

JP 

C , L 1 1 0 

4374 3AFBF7 

00750 

LD 

A, (FTF) 

4877 A7 

00760 

AND 

A 

4878 207D 

00770 

JR 

NZ,LU16 

4S7A CD6C4B 

00780 LI 

CALL 

RE ADV 

487B FE3C 

00790 

CP 

3CH 

487F 280A 

00800 

JR 

Z,L1 1 1 1 

4881 FE78 

00810 

CP 

7SH 

4883 2861 

00820 

JR 

Z, Ll i 15 

4885 FE55 

00830 LI 110 

CP 

55H 

4887 2844 

00840 

JR 

2,1.1114 

4889 18EF 

00850 

JR 

Ll 

488B FD360042 

00860 LI 111 

LD 

UY+O) , ’B f 

488F FD23 

00870 

INC 

IY 

4891 AF 

008 SO 

XOR 

A 

4892 32FAF7 

Cs 0890 

LD 

(CF) , A 

4895 CD6C4B 

00900 

CALL 

READY 

4898 47 

00910 

LD 

B, A 

4899 CD6C4B 

00920 

CALL 

READY 

489C D9 

00930- 

EXX 


4S9D 6F 

00940 

LD 

L,A 

489E B9 

00950 

EXX 


489F CD6C4B 

00960 

CALL 

READY 

49A2 D9 

00970 

EXX 


48 A3 67 

00980 

LD 

H, A 

48A4 D9 

00990 

EXX 


48A5 CB6C4B 

01000 LI 112 

CALL 

READY 

48A8 D9 

01010 

EXX 


48A9 7C 

01020 

LD 

A,H 

48AA FE43 

01030 

CP 

43H 

48AC 7D 

01040 

LD 

A, L. 

48AD 23 

01050 ' ‘ 

INC 

HL ‘ ! 

48AE D9 

01060 

EXX 


4SAF 2010 

01070 

JR 

NZ , Ll 1 13 

48B1 FE12 

01080 

CP 

12H 

48 B 3 200C 

01090 

JR 

NZ, Ll 1 13 

48B5 7E 

01100 

LD 

A, (HL) 

4SB6 321243 

01110 

LD 

(4312H) , A 

4889 3669 

01120 

LD 

(HL) , 105 

48BB ED44 

01130 

NEG 


4SBD 86 

01140 

ADD 

A, (HL) 

48BE 32FAF7 

01150 

LD 

(CF) ,A 

48C1 10E2 

01160 LI 113 

DJNZ 

Ll 1 12 

48C3 CB6C4B 

01170 

CALL 

READY 

48C6 3AFAF7 

01180 

LD 

A, (CF) 

48C9 86 

01 190 

ADD 

A, (HL) 

48CA 77 

01200 

LD 

(HL) , A 

48CB 18AD 

01210 

JR 

Ll 

48CD FD360046 

01220 LU. 14 

LD 

( I Y+0) , ’F’ 

48D1 FD23 

01230 

INC 

IY 

48D3 0606 

01240 

LD 

B, 6 

48D5 CD6C4B 

01250 LU 114 

CALL 

READY 

48D8 FD 7 7 00 

01260 

LD 

(IY+O) , A 

48DB FD23 

01270 

INC 

IY 

48DD 10F6 

01280 

DJNZ 

Ll 1 1 14 

4 8 DF 3E3C 

01290 

LD 

A, 3CH 
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4SE 1 

32B64S 

0 i 300 

LD 

(LI 1 10+1 ) , A 

48E4 

1894 

01310 

JR 

Li 

4SE6 

FD360045 

01320 Ul 115 

LD 

( I Y+0 ) , ’ E’ 

4SEA 

FD 23 

01330 

INC 

IY 

48EC 

CD6C4B 

01340 

CALL 

READY 

48EF 

CD6C4B 

01.350 

CALL 

READY 

4SF2 

3E69 

0 1 360 

LD 

A, 105 

4SF4 

321243 

01370 

LD 

(4312H) , A 

4SF7 

CD6C4B 

01380 LI 1 16 

CALL 

READY 

4SFA 

1SFB 

01390 

JR 

LI 116 

48FC 

3E00 

01400 L22 

LD 

ft, 0 

4SFE 

8F 

01410 

ADC 

A, A 

48FF 

32FCF7 

0 1 420 

LD 

(AFF) ,A 

4902 

FD222040 

01430 

LD 

(4020H) , IY 

4906 

3AF8F7 

01440 

LD 

A, (DF) 

4909 

32F9F7 

01450 

LD 

(DFLftb) , A 

490C 

1 1694 C 

01460 

LD 

DE, BUFFER 

490F 

A7 

01470 

AND 

A 

4910 

ED52 

01480 

SBC 

HL, DE 

4912 

E5 

0 1490 

PUSH 

HL 

4913 

21A9F6 

01500 

LD 

HL, TEXT3 

4916 

CD13F4 

01510 

CALL 

PRINT 

4919 

El 

01520 

POP 

HL 

491A 

CD67F4 

01530 " 

CALL 

F'PHEX -■ 

491D 

CDAC4A 

01540 

CALL 

CRCR 

4920 

22EBF7 

01550 

LD 

(FLEN) , HL 

4923 

1 J 8046 

01560 

LD 

DE, 4680H 

4926 

0680 

01570 

LD 

B, 128 

4928 

3E20 

01580 

LD 

A, ’ ? 

492A 

12 

01590 LI 13 

LD 

(DE) , A 

492B 

13 

0 1 600 

INC 

DE 

492C 

10FC 

01610 

DJNZ 

Li 13 

492E 

11694C 

01620 

LD 

DE, BUFFER 

4931 

2AEBF7 

01630 

LD 

HL, (FLEN) 

4934 

19 

01640 

ADD 

HL, DE 

4935 

2B 

01650 

DEC 

HL 

4936 

3AFCF7 

01660 

LD 

A, (AFF) 

4939 

A7 

01670 

AND 

A 

493A 

2801 

01680 

JR 

2 , LI 14 

493C 

2B 

01690 

DEC 

HL 

493D 

CD984A 

01700 LI 14 

CALL 

NULL 

4940 

CA4B4A 

01710 

JP 

Z , L 1 00 ^ 

4943 

1A 

01720 

LD 

A, (DE) 

4944 

FE55 

0 1730 

CP 

’LP 

4946 

2806 

0 1740 

JR 

Z , L 1 1 5 

4948 

CD984A 

01750 

CALL 

NULL 

494B 

CA4B4A 

01760 

JP 

Z , L. 1 00 

494E 

21 FF FF 

01770 LI 15 

LD 

HL, OFFFFH 

4951 

1A 

Öl 780 LI 12 

LD 

A, (DE) 

4952 

CDBFF4 

0 1 790 

CALL 

ENDE 

4955 

23 

01.800 

INC 

HL 

4956 

13 

01810 

INC 

DE 

4957 

FE55 

01820 

CP 


4959 

20F6 

01830 

JR 

NZ , LI 12 

495B 

7C 

01840 

LD 

A, H 

495C 

B5 

01850 

OR 

L 

495D 

E5 

01 860 

PUSH 

HL 

495E 

F5 

01370 

PUSH 

AF 

495F 

216AF7 

ö 1 880 

LD 

HL, TEXT 18 

4962 

C413F4 

01890 

CALL 

NZ, PRINT 
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4965 

Fi 

01900 

POP 

AF 


4966 

El 

01910 

POP 

HL 


4967 

C467F4 

01920 

CALL 

NZ,PRHEX 

* 

496A 

214EF7 

01930 

L.D 

HL, TEXT 10 


496D 

CD13F4 

01940 

CALL 

PRINT 


4970 

0606 

01950 

LD 

B,6 


4972 

1A 

01960 LI 1 

LD 

A, (DE) 


4973 

CD3BF4 

01970 

CALL 

GUTCH 


4976 

13 

01980 

INC 

DE 


4977 

10F9 

01990 

DJNZ 

LI 1 


4979 

21FFFF 

02000 LI 2 

LD 

HL, OFFFFH 


497C 

1A 

02010 LI 21 

LD 

A, (DE) 


497D 

CDBFF4 

02020 

CALL 

ENDE 


4980 

13 

02030 

INC 

DE 


4981 


02040 

INC 

HL 


4982 

FE78 

02050 

CP 

78H 

* 


4984 

2804 

02060 

JR 

Z 1 1 2“ 

^ | i . ,r|iw, | r rf _ t - , J l ' 1 +? , | 1 t S- ^ i JT* B-J- ^ v 

4986 

FE3C 

02070 ’ ' 

CP 

Jh-r^N F r r 1 “ * ■( TMtv } rn t W ■■Tfc» F ’r r j jP-1-1-%-. f f 

3CH 

4988 

20F2 

02080 

JR 

NZ, L121 

498A 

F5 

02090 LI 22 

PUSH 

AF 

49BB 

7C 

02100 

LD 

A,H 

498C 

B5 

02110 

OR 

L 

498D 

2S0B 

02120 

JR 

Z,L123 

498F 

E5 

02130 . 

PUSH 

HL 

4990 

216AF7 

02140 

LD 

HL, TEXT 18 

4993 

CD13F4 

02150 

CALL 

PRINT 

4996 

El 

02160 

POP 

HL 

4997 

CD67F4 

02170 

CALL 

PRHEX 

499A 

Fl 

02180 LI 23 

PGP 

AF 

499B 

FE78 

02190 

CP 

78H 

499D 

2873 

02200 

JR 

Z,H5 

499F 

1A 

02210 

LD 

A, (DE) 

49A0 

4F 

02220 

LD 

C, A 

49A1 

13 

02230 

INC 

DE 

49A2 

1A 

02240 

LD 

A, (DE) 

49A3 

6F 

02250 

LD 

- . . - -■ .t.-ur - - . - , •iT’S-'WCV»-. ' . . »/ -VtJ- r-, 

L , n 

49A4 

13 

02260 

INC 

DE 

49A5 

1A 

02270 

LD 

A, (DE) 

49A6 

67 

02230 

LD 

H, A 

49A7 

13 

02290 

INC 

DE 

49A8 

35 

02300 

ADD 

A,L 

49A9 

47 

02310 

LD 

B, A 

49AA 

C5 

02320 

PUSH 

BC 

49AB 

ED53F1F7 

02330 

LD 

(LSTAD) , DE 

49AF 

1A 

02340 1.14 

LD 

A, (DE) 

49B0 

CDBFF4 

02350 

CALL 

ENDE 

49B3 

13 

02360 

INC 

DE 

4°B4 

80 

02370 

ADD 

A,B 

49B5 

47 

02380 

LD 

B, A 

49B6 

OD 

02390 

DEC 

C 

49B7 

20F 6 

02400 

JR 

NZ , L 1 4 

49B9 

1A 

02410 

LD 

A, (DE) 

49BA 

13 

02420 

INC 

DE 

49BB 

90 

02430 

SUB 

B 

49BC 

280C 

02440 

JR 

Z, L1S 

49BE 

E5 

02450 

PUSH 

HL 

49BF 

CD6FF4 

02460 

CALL 

PRBL. 1 

49C2 

El 

02470 

POP 

hl ; 

49 C 3 

010000 

02480 

LD 

BC, 0 

49C6 

ED43EFF7 

02490 

LD 

(LSTREC) , BC 
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49CA 

32F5F7 

02500 L.1S 

LD 

(CSF) ,Ä 

49CD 

CI 

02510 

POP 

BC 

49CE 

E5 

02520 

PUSH 

HL 

49CF 

B5 

02530 

PUSH 

DE 

49D0 

ED5BEFF7 

02540 

LD 

DE, (LSTREC) 

49D4 

7B 

02550 

LD 

A,E 

49D5 

B2 

02560 

QR 

D 

49D6 

2003 

02570 

JR 

NZ,L16 

49D8 

3C 

02580 

INC 

A 

49D9 

1808 

02590 

JR 

L17 

49DB 

37 

02600 LI 6 

SCF 


49DC 

ED52 

02610 

SBC 

HL, DE 

49DE 

F5 

02620 

PUSH 

AF , 

49DF 

C46FF4 

02630 

CALL 

NZ , PRBL 

49E2 

Fl 

02640 

POP 

AF 

49E3 

Dl 

02650 LI 7 

POP 

DE 

49E4 

El 

02660 

POP 

HL 

49E5 

280B 

02670 

JR 

Z, L13 

49E7 

22EDF7 

02680 

LD 

(LSTRAC) , HL 

49EA 

E5 

02690 

PUSH 

HL 

49EB 

2AF1F7 

02700 

LD 

HL, <LSTAD> 

49EE 

22F3F7 

02710 

LD 

(LSTAD1) , HL 

49F1 

El 

02720 

POP 

HL 

49F2 

0600 

02730 L13 

LD 

B,0 

49F4 

0D 

02740 

DEC 

’t. t Zf 

L 

49F5 

09 

02750 

ADD 

HL, BC 

49F6 

22EFF7 

02760 

LD 

(LSTREC) , HL 

49F9 

3AF5F7 

02770 

LD 

A, (CSF) 

49FC 

A7 

02780 

AND 

A 

49FD 

CA7949 

02790 

JP 

Z,L12 

4A00 

CD6FF4 

02800 

CALL 

PRBL 

4A03 

210000 

02810 

LD 

HL, 0 

4A06 

22EFF7 

02820 

LD 

(LSTREC) ,HL. 

4A09 

2186F7 

02830 

LD 

HL, TEXT13 

4A0C 

CD13F4 

02840 

CALL 

PRINT 

4A0F 

C37949 

02850 

JP 

L12 



02860 

■ 


4A12 

CD6FF4 

02870 L15 

CALL 

PRBL 

4A15 

2178F7 

02880 

LD 

HL, TEXT 12 

4A18 

CD13F4 

02890 

CALL 

PRINT 

4A1B 

1A 

02900 

LD 

A, (DE) 

4A1C 

6F 

029 1 0 

LD 

L,A 

4A1D 

13 ' 

02920 

" INC 

DE 

4A1E 

1A 

02930 

LD 

A, (DE) 

4A1F 

67 

02940 

LD 

H, A 

4A20 

CD67F4 

02950 

CALL 

PRHEX 

4A23 

13 

02960 

INC 

DE f 

4A24 

21694C 

02970 

LD 

HL, BUFFER 

4A27 

ED4BEBF7 

02980 

LD 

BC, (FLEN) 

4A2B 

09 

02990 

ADD 

HL, BC 

4A2C 

A7 

03000 

AND 

A 

4A2D 

ED52 

03010 

SBC 

HL, DE 

4A2F 

7D 

03020 

LD 

A,L 

4A30 

B4 

03030 

OR 

H 

4A31 

280B 

03040 

JR 

Z, LI 1 1 

4A33 

ES 

03050 

PUSH 

HL 

4A34 

216AF7 

03060 

L.D 

HL, TEXT 18 

4A37 

CD13F4 

03070 

CALL 

PRINT 

4A3A 

El 

03080 

POP 

HL 

4A3B 

CD67F4 

03090 

CALL 

PRHEX 


v <- 


»j. 
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4A3E 

CDAC4A 

03100 LI t 1 

CALL 

CRCR 

4A41 

AF 

03110 LI 10 

XüF 

A 

4A42 

32F Q F7 

03120 

LD 

(DFL AG.' , A 

4A45 

CD8F4B 

03130 WS T ART 

CALL 

WA IT 

4A4B 

C 300 4 8 

03140 

JP 

START 



03150 

• 

% 


4A4B 

2195F7 

03160 LI 00 

LD 

HL, TEXT 14 

4A4E 

CD13F4 

03170 

CALL 

PRINT 

4A51 

1A 

03180 

LD 

A, (DE) 

4A52 

CD3BF4 

03190 

CALL 

OUTCH 

4A55 

13 

03200 

INC 

DE 

4A5fa 

CDAC4A 

03210 

CALL 

CRCR 

4A59 

EB 

03220 

EX 

DE, HL. 

4A5A 

5E 

03230 LI 05 

LD 

E, (HL) 

4A5B 

23 

03240 

INC 

HL ’ 

4A5C 

56 

03250 

LD 

D, 'HL) 

4A5D 

23 

03260 

INC 

HL 

4A5E 


03270 

INC 

HL r. ‘ 

4A5F 

23 

03280 

INC 

HL 

4A60 

7E 

03290 L 1 0 1 

LD 

A, (HL) 

4A61 

CDB9F4 

03300 

CALL 

ENDEI 

4A64 

nr 

03310 

INC 

HL 

4A65 

A7 

03320 

AMD 

A 

4A66 

20F8 

03330 

JR 

NZ.L101 

4A68 

CBB9F4 

03340 LI 02 

CALL 

ENDEI 

4A6B 

B5 

03350 

PUSH 

DE 

4A6C 

5E 

03360 

LD 

E, (HL) 

4A6D 

23 

03370 

INC 

HL 

4A6E 

56 

03380 

LD 

D, (HL) 

4A6F 

7A 

03390 

LD 

A,D 

4A70 

B3 

03400 

OR 

E 

4A71 

E3 

03410 

EX 

(SP) ,HL 

4A72 

EB 

03420 

EX 

DE, HL. 

4A73 

CI 

03430 

POP 

BC 

4A74 

CA414A 

03440 

JP 

Z.LtlO 

4A77 

E5 

03450 . 

PUSH 

HL 

4A78 

ED52 

03460 

SBC 

HL, DE 

4A7A 

09 

03470 

ADD 

HL, BC 

4A7B 

Dl 

03480 

POP 

DE 

4A7C 

2B 

03490 

DEC 

HL 

4A7D 

2B 

03500 

DEC 

HL 

4A7E 

7E 

03510 

LD 

A, (HL) 

4A7F 


03520 

INC 

HL. 

4A80 

A7 

03530 

AND 

A 

4A81 

28E5 

03540 

JR 

Z, L102 

4A83 

E5 

03550 

PUSH 

HL 

4A84 

2186F7 

03560 

LD 

HL, TEXT 13 

4A87 

CD13F4 

03570 

CALL 

PRINT 

4A8A 

El 

03580 

POP 

HL 1 

4A8B 

CDAF4A 

03590 

CALL 

CR1 

4A8E 

7E 

03600 LI 03 

LD 

A, (HL) 

4A8F 

CDB9F4 

03610 

CALL 

.ENDEI 

4A92 

23 

03620 

INC 

HL 

4A93 

A7 

03630 

AND 

A 

4A94 

20F8 

03640 

JR 

NZ, L.103 

4A96 

18C2 

03650 

JR 

LI 05 



03660 ; 



4A98 

7E 

03670 NULL 

LD 

A, (HL) 

4A99 

2B 

03680 

DEC 

HL 

4A9A 

B6 

03690 

OR 

(HL) 




t;*1 '»j u t ►,** #■ P ^.i! 4' 'J\(- ■* 


< 


i 


i 
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4A9B 

2B 

03700 

DEC 

HL 

4A9C 

B6 

03710 

ÖR 

< HL ) 

4A9D 


03720 

INC 

HL 

4A9E 

CO 

03730 

RET 

NZ 

4A9F 

2B 

03740 

DEC 

HL 

4AA0 

2B 

03750 

DEC 

HL 

4AAi 

7E 

03760 

LD 

A, <HL> 

4AA2 

FE78 

03770 

CP 

78H 

4AA4 

23 

03780 

INC 

HL 

4AA5 

23 

03790 

INC 

HL 

4AA6 

2802 

03800 

JR 

Z, NI 

4AA8 

AF 

03810 

XOR 

A 

4AA9 

C9 

03820 

RET 


4AAA 

A7 

03830 Ni 

AND 

A 

4AAB 

C9 

03840 

RET 




03850 

« 

3 


4AAC 

CBAF4A 

03860 CR CF: 

CALL 

CR1 

4AAF 

3E0D 

03870 CR1 

LD 

A, CR 

4AB1 

C33BF4 

03880 

JP 

OUTCH 



03890 

• 

1 




03900 

; Automat i k <Ei n/Aus) 



03910 

? 

■ 

4AB4 

3AF6F7 

03920 AUTOM 

LD 

A, (BF) 

4AB7 

EEFF 

03930 

XOR 

255 

4AB9 

32F6F7 

03940 

LD 

(BF) , A ■ - ‘ 

4ABC 

3A79F5 

03950 

LD 

A, (BA) 

4ABF 

EE61 

03960 

XOR 

’a 7 ; ? ? XOR 

4AC1 

3279F5 

03970 

LD 

(BA) , A 

4AC4 

C3004S 

03980 

JP 

START 



03990 

• 




04000 

; Schreiben 



04010 

* 

* 


4AC7 

21BDF6 

04020 SCHREI 

LD 

HL, TEXT4 

4ACA 

CD13F4 

04030 

CALL 

PRINT 

4ACB 

CD8F4B 

04040 

CALL 

WA IT 

4 ABO 

21BAF7 

04050 

LD 

HL, TEXT 16 

4AD3 

CD13F4 

04060 

CALL 

PRINT 

4AD6 

CB2B00 

04070 SO 

CALL 

INCH 

4AD9 

FEOD 

04080 

CP 

CR 

4ADB 

0601 

04090 

LD 

B, 1 

4ADD 

2809 

04100 

JR 

Z,S01 

4ADF 

D63Ö 

04110 

SUB 

’Q’ 

4AE1 

38F3 

04120 - - 

JR 

C , SO • -t- 11 -- 

4AE3 

FEOA 

04130 

CP 

10 

4AE5 

30EF 

04 1 40 

JR 

NC, SO 

4AE7 

47 

04150 

LD 

B, A 

4AE8 

78 

04160 SOI 

LD 

A,B 

4AE9 

C630 

04170 

ADD 

A, ’O’ 

4AEB 

CD3BF4 

04180 

CALL 

OUTCH 

4AEE 

48 

04190 

LD 

C,B 

4AEF 

21F2F6 

04200 

LD 

HL, TEXT7 

4AF2 

CD13F4 

04210 

CALL 

PRINT 

4AF5 

C5 

04220 Sil 

PUSH 

BC 

4AF6 

79 

04230 

LD 

A, C 

4AF7 

90 

04240 

SUB 

B 

4AF8 

C631 

04250 

ADD 

A, ’ 1 ■’ 

4 AFA 

32CBF7 

04260 

LD 

(TEXT17) , A 

4AFD 

FS 

04270 

PUSH 

AF 

4AFE 

21CBF7 

04280 

LD 

HL, TEXT 17 

4 BOI 

CD13F4 

04290 

CALL 

PRINT 


i v* ■' 
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4B04 

Fl 

04300 

POP 

AF 

4B05 

FE31 

04310 

CP 

* 1 ' 

4B07 

2S0B 

04320 

JR 

Z,S13 

4 BO? 

1605 

04330 

LD 

D,5 

4B0B 

0 l 0000 

04340 S12 

LD 

BC, 0 

4B0E 

CD6000 

04350 

CALL 

6 OH 

4B1 1 

L5 

04360 

DEC 

D 

4B12 

20F7 

04370 

JR 

NZ , S12 

4B14 

CD9D4B 

04330 St 3 

CALL 

WEITES 

4B17 

20 1B 

04390 

JR 

NZ,S2 

4B19 

21694C 

04400 

LD 

HL, BUFFER 

4B1C 

ED4BEBF7 

04410 

LD 

BC, *.FLEN> 

4B20 

7E 

04420 S1 

LD 

A, (HL) 

4B21 

CDIF02 

04430 

CALL 

WRITEB 

4B24 

3A40F8 

04440 

LD 

A, (0FS40H) 

4B27 

CB57 

04450 

BIT 

2, A 

4B2? 

2009 

04460 

JR 

NZ,S2„ 

4B2B 

r- t *T 

04470 

INC 

HL 

4B2C 

OB 

04480 

DEC 

BC 

4B2D 

78 

04490 

LD 

A, B 

4B2E 

Bl 

04500 

OR 

C 

4B2F 

20EF 

04510 

JR 

NZ,S1 

4B31 

CI 

04520 

POP 

BC 

4B32 

10C1 

04530 

DJNZ 

Sil 

4B34 

C3454A 

04540 52 

JP 

WS T ART 



04550 

* 




04560 

; Vergleichen 



04570 

■ 


4B37 

2194F6 

04580 VERGLE 

LD 

HL, TEXT2 

4B3A 

CD13F4 

04590 

CALL 

PRINT 

4B3D 

CD8F4B 

04600 

CALL 

WA IT 

4B40 

21 OFF 7 

04610 

LD 

HL, TEX TS 

4B43 

CD13F4 

04620 

CALL 

PRINT 

4B46 

260F 

04630 

LD 

H, REABV-READY 

4B48 

2E18 

04640 

LD 

L, 18H 

4B4A 

226C4B 

04650 

LD 

(READY), HL 

4B4D 

ED5BEBF7 

04660 

LD 

DE, (FL.EN> 

4B51 

C3624S 

04670 

JP 

LAD , 



04680 

* 


4B54 

21A2F7 

04690 VI 

LD 

HL, TEXT15 

4B57 

FD222040 

04700 V4 

LD 

(4020H) , IY 

4B5B 

E5 

04710 

PUSH 

HL 

4B5C 

CDAC4A 

04720 

CALL 

CRCR 

4B5F 

El 

04730 

POP 

HL 

4B60 

CD13F4 

04740 

CALL 

PRINT 

4B63 

Dl 

04750 V2 

POP 

DE 

4B64 

C3454A 

04760 

JP 

WSTART 



04770 

m 




04780 

; Fehler 



04790 

• 


4B67 

21A7F7 

04800 V3 

LD 

HL, TEXT5 

4B6A 

18EB 

04810 

JR 

V4 



04820 

i 




04830 ; 




• 

04840 ; 

Unterprogramme für Le 



04850 ; 



4B6C 

IC 

04860 READY 

INC 

E 

4B6D 

CBFB 

04870 

SET 

7,E 

4B6F 

CDB24B 

04880 

CALL 

READB 

4B72 

2804 

04890 

JR 

1 , REND 


y j 
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4B74 23 

04900 

INC 

HL 

4B75 77 

04910 

LD 

(HL) ,A 

4B76 12 

04920 

LD 

<DE> , A 

4B77 DO 

04930 

RET 

NC 

4B78 CI 

04940 REND 

POP 

BC 

4B79 23 

04950 

INC 

HL 

4B7A C3FC48 

04960 

JP 

1.22 


04970 $ 



4B7D 1B 

04980 READV 

DEC 

DE 

4B7E 7A 

04990 

LD 

A,D 

4B7F B3 

05000 

OR 

E 

4B80 28D2 

05010 

JR 

Z,V1 

4B82 CDB24B 

05020 

CALL 

READB 

4B85 23 

05030 

INC 

HL 

4B86 2SDB 

05040 

JR 

7 U? 

4- 1 T J-i 

4B88 38D9 

05050 

JR 

C, 02 

4B8A BE 

05060 

CP 

(HL) 

4BSB C8 

05070 

RET 

Z 

4B8C C3674B 

05080 

JP 

V3 


05090 

* 



05100 

; Unterprogramme 


05110 

* 

9 


4B8F 212DF7 

05120 WA IT 

LD 

HL, TEX TO 

4B92 CD13F4 

05130 

CALL 

PRINT 

4B95 CD2B00 

05140 W1 

CALL 

INCH 

4B98 FEOD 

05150 

CP 

CR 

4B9A 20F9 

05160 

JR 

NZ,W1 

4B9C C9 

05170 

RET 



05180 

* 

» 

■ 

4B9D 06FF 

05190 WRITES 

LD 

B, 255 

4B9F 3EAA 

05200 WR1 

LD 

A, OAAH 

4BA1 CD1F02 

05210 

CALL 

WRITEB 

4BA4 3A40F8 

05220 

LD 

A, (0F840H) 

4BA7 CB57 

05230 

BIT 

2, A 

4BA9 CO 

05240 

RET 

NZ 

4BAA 10F3 

05250 

DJNZ 

WR1 

4BAC AF 

05260 

XOR 

A 

4BAD 3E66 

05270 

LD 

A , 66H 

4BAF C31F02 

05280 

JP 

WRITEB 


05290 

* 


02 1F 

05300 WRITEB 

EGU 

021 FH 


05310 

m 

9 


4BB2 D9 

05320 READB 

EXX ‘ 

; "’iv* Y~- 1 > ^ h ■* 

4BB3 0608 

05330 

LD 

B, 8 

4 BBS 1600 

05340 

LD 

D, 0 

4BB7 CDCF4B 

05350 RBl 

CALL 

READB I 

4BBA 3806 

05360 

JR 

C, RB2 

4BBC 1 0F9 

05370 

DJNZ 

RB1 

4BBE 04 

Ö5380 

INC 

B 

4BBF 7A 

05390 RB3 

LD 

A,D 

4BC0 D9 

05400 

EXX 


4BC1 C9 

05410 

RET 



05420 

• 

> 


4BC2 78 

05430 RB2 

LD 

A, B 

4BC3 FE 08 

05440 

CP 

8 

4BC5 28F8 

05450 

JR 

Z , RB3 

4BC7 CB22 

05460 RB4 

SLA 

D 

4BC9 10FC 

05470 

DJNZ 

RB4 

4BCB 37 

05480 

SCF 

; 

4BCC 04 

05490 

INC 

B i 
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4BCD 

18F0 

05500 

JR 

RB3 



055 1 0 

« 


4BCF 

C5 

05520 READBI 

RUSH 

BC 

4BD0 

BBFF 

05530 

IN 

A, (OFFH) 

4BD2 

E601 

05540 

AND 

01 

4BD4 

5F 

05550 

LD 

E, A 

4BD5 

0E00 

05560 

LD 

C,0 

4BD7 

0D 

05570 RI 

DEC 

c 

4BD8 

28 OB 

05580 

JR 

Z,RBII 

4BDA 

DBFF 

05590 

IN 

A, (OFFH) 

4 BBC 

E601 

05600 

AND 

01 

4BDE 

AB 

05610 

XOR 

E 

4BDF 

1F 

05620 

RRA 


4BE0 

30F5 

056 .iO 

JR 

NC, RI 

4BE2 

C 3080 2 

05640 

JR 

0208H 

4BE5 

3AF6F7 

05650 RBI 1 

LD 

. A, (BF) . 

4BE8 

A7 

05660 

AND 

A 

4BE9 

2307 

05670 

JR 

Z,RBI2 

4BEB 

3A40F8 

05680 

LD 

A, (OF840H) 

4BEE 

CB57 

05690 

BIT 

2, A 

4BF0 

2SE5 

05700 

JR 

Z , RI 

4BF2 

CI 

05710 RBI 2 

POP 

BC 

4BF3 

37 

05720 

SCF 

■ 

4BF4 

C9 

05730 

RET 




05740 

* 


4BF5 

3AF6F7 

05750 READS 

LD 

A, (BF) 

4BF8 

32F7F7 

05760 

LD 

(BFS) , A 

4BFB 

3E0 1 

05770 

LD 

A,1 

4BFD 

32F6F7 

05780 

LD 

(BF) ,A 

4C00 

ES 

05790 

PUSH 

HL 

4C01 

D5 

05800 

PUSH 

DE 

4C02 

C5 

05810 

PUSH 

BC 

4 CO 3 

3E05 

05820 

LD 

A. 5 

4C05 

3226F0 

05830 

LD .. 

( 0F026H ) , A 

4C08 

3227F0 

05840 

LD 

(0F027H) , A 

4C0B 

0 1 AA80 

05350 RS1 

LD 

BC, 0 BOA AH 

4C0E 

CDCF4B 

05860 RS2 

CALL 

READBI 

4C1 1 

38 1A 

05870 

JR 

C,RS3 

4C13 

B9 

05880 

CP 

C 

4C14 

20F5 

05890 

JR 

NZ,RS1 

4C16 

3EFF 

05900 

LD 

A, 255 

4C18 

A9 

05910 

XOR 

C 

4C19 

4F 

05920 

LD 

C, A 

4C1A 

10F2 

05930 

DJNZ 

RS2 

4C1C 

CDCF4B 

05940 RS4 

CALL 

READBI 

4C1F 

380C 

05950 

JR 

C, RS3 

4C21 

FE66 

05960 

CP 

66H 

4C23 

20F7 

05970 

JR 

NZ , RS4 

4C25 

3E2A 

05980 

LD 

A, 

4C27 

322644 

05990 

LD 

(4426H) , A 

4C2A 

322744 

06000 

LD 

(4427H) , A 

4C2D 

CI 

06010 RS3 

POP 

BC 

4C2E 

Dl 

06020 

POP 

DE 

4C2F 

El 

06030 

POP 

HL 

4C30 

3AF7F7 

06040 

LD 

A, (BFS) 

4C33 

32F6F7 

06050 

LD 

(BF) ,A 

4C36 

C9 

06060 

RET 

) 



06070 

• 

i 

0032 


06080 

DEFS 

so ; 

4C69 


06090 BUFFER 

EGU 

* : 


I 
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06100 

■ 


F400 


06110 

ORG 

0F400H 



06120 

■ 

1 




06130 

; Drucker (Ein/Au; 



06140 

* 


F400 

3AFSF7 

06150 DREA 

LD 

A, (DF) 

F403 

EEFF 

06160 

XOR 

255 

F4Ö5 

32F8F7 

06170 

LD 

(DF) , A 

F408 

3A7FF5 

06180 

LD 

A, (DA) 

F40B 

EE64 

06190 

XOR 

’d’ ; ’ ? 

F40D 

327FF5 

06200 

LD 

(DA) , A 

F410 

C30048 

06210 

JF‘ 

START 



06220 

• 


F413 

7E 

06230 PRINT 

LD 

A, (HL) 

F414 

A7 

06240 

AND 

A 

F415 

OT 

06250 

INC 

HL 

F416 

2809 

06260 

JR 

Z , PR2 

F41S 

FEFF 

06270 

CP 

255 

F41A 

2812 

06280 

JR 

1 1 PR3 

F41C 

CD3BF4 

06290 

CALL 

OUTCH 

F41F 

18F2 

06300 

JR 

PRINT 



06310 

? 


F421 

D5 

06320 PR2 

PUSH 

DE 

F422 

CD2B0Ö 

06330 

CALL 

INCH 

F425 

FE60 

06340 

CP 

6 OH 

F427 

CC2B00 

06350 PR1 

CALL 

Z, INCH 

F42A 

2SFB 

06360 

JR 

Z , PR1 

F42C 

Dl 

06370 

POP 

DE 

F42D 

C9 

06380 

RET 




06390 

• 


F42E 

C5 

06400 PR 3 

PUSH 

BC 

F42F 

46 

06410 

LD 

B, (HL) 

F430 

23 

06420 

INC 

HL 

F431 

7E 

06430 PR 4 

LD 

A, (HL) 

F432 

CD3BF4 

06440 

CALL 

OUTCH 

F435 

10FA 

06450 

DJNZ 

PR 4 

F437 

23 

06460 

INC 

HL 

F433 

CI 

064^0 

POP 

BC 

F439 

1SD8 

06480 

JR 

PRINT 



06490 

• 

9 


0G2B 


06500 INCH 

EGU 

002BH 



06510 

• 

1 


F43B 

D5 

06520 0UTCH 

PUSH 

DE 

F43C 

F5 

06530 

PUSH 

AF 

F43D 

CD33Ö0 

06540 

CALL 

33H 

F440 

Fl 

06550 

POP 

AF 

F441 

57 

06560 

LD 

D, A 

F442 

3AF9F7 

06570 

LD 

A, (DFL AG) 

F445 

A7 

06580 

AND 

A 

F446 

7A 

06590 

LD 

A,D 

F447 

C 43 B00 

06600 

CALL 

NZ, 3BH 

F44A 

Dl 

06610 

POP 

DE 

F44B 

C9 

06620 

RET 

, 



06630 

* 

9 




06640 

« 

j 


F44C 

7C 

06650 PRH 

LD 

A,H 

F44D 

CD51F4 

06660 

CALL 

PRBYTE 

F450 

7D 

06670 

LD 

A, L 

F451 

F5 

06680 PRBYTE 

PUSH 

AF 

F452 

0F 

06690 

RRCA 
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F453 

OF 

06700 

RRCA 


F454 

OF 

06710 

RRCA 


F455 

OF 

06720 

RRCA 


F456 

CD5AF4 

06730 

CALL 

PRNIB 

F459 

Fl 

06740 

POP 

AF 

F45A 

E60F 

06750 PRNIB 

AND 

OFH 

F45C 

FEOA 

06760 

CP 

10 

F45E 

3802 

06770 

JR 

C,PN1 

F460 

C607 

06780 

ADD 

A, 7 A 7 9’ -1 

F462 

C630 

06790 PNI 

ADD 

A, 7 O 7 

F464 

C33BF4 

06300 

ÖP 

OUT CH 



06810 

■ 


F467 

CD4CF4 

06820 PRHEX 

CALL 

PRH 

F46A 

3E48 

06830 

LD 

A, 7 H 7 

F46C 

C33BF4 

06840 

JP 

OUTCH 



06850 

• 

* 


F46F 

2AEFF7 

06860 PRBL 

LD 

HL, (LSTREC) 

F472 

7D 

06870 

LD 

A, L 

F473 

B4 

06880 

OR 

H 

F474 

C8 

06890 

RET 

Z 

F475 

D5 

06900 

PUSH 

DE 

F476 

215CF7 

06910 

LD 

HL, TEXT 11 

F479 

CD13F4 

06920 

CALL 

PRINT 

F47C 

2AEDF7 

06930 

LD 

HL, (LSTRAC) 

F47F 

E5 

06940 

PUSH 

HL 

F480 

CD67F4 

06950 

CALL 

PRHEX 

F483 

3E2B 

06960 

LD 

A, 7 -’ 

F4S5 

CD3BF4 

06970 

CALL 

OUTCH 

F48S 

2AEFF7 

06980 

LD 

HL, <LSTREC) 

F48B 

CD67F4 

06990 

CALL 

PRHEX 

F48E 

Dl 

07000 

POP 

DE 

F48F 

A7 

07010 

AND 

A 

F490 

ED52 

07020 

SBC 

HL, DE 

F492 

Dl 

07030 

POP 

DE 

F493 

7C 

07040 . .. 

LD - 

A.H 

F494 

A7 

07050 

AND 

A 

F495 

CO 

07060 

RET 

NZ 

F496 

7D 

07070 

LD 

A,L 

F497 

FE 03 

07080 

CP 

3 

F499 

DO 

07090 

RET 

NC 

F49A 

C5 

07100 

PUSH 

BC 

F49B 

45 

07110 

LD 

B,L 

F49C 

04 

07120 

INC 

B 

F49D 

21E7F7 

07130 

LD 

HL, TEXT20 

F4A0 

CD13F4 

07140 

CALL 

PRINT 

F4A3 

2AF3F7 

07150 

LD 

HL, iLSTADl ) 

F4A6 

7E 

07160 PRBL1 

LD 

A, <HL) 

F4A7 

CD51F4 

07170 

CALL 

PRBYTE 

F4AA 

3E48 

07180 

LD 

A, 7 H 7 

F4AC 

CD3BF4 

07190 

CALL 

OUTCH 

F4AF 

3E20 

07200 

LD 

A, 7 7 

F4B1 

CD3BF4 

07210 

CALL 

OUTCH 

F4B4 

23 

07220 

INC 

HL 

F4B5 

10EF 

07230 

DJNZ 

PRBL1 

F4B7 

CI 

07240 

POP 

BC 

F4B8 

C9 

07250 

RET 




07260 

» 

1 



07270 

* 




07280 

• 


F4B9 

EB 

07290 ENDEI 

EX 

DE, HL 
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F4BA CDBFF4 

07300 

CALL 

ENDE 

F4BD EB 

07310 

EX 

DE, HL 

F4BE C9 

07320 

RET 



07330 

? 


F4BF E5 

07340 ENDE 

PUSH 

HL 

F4C0 D5 

07350 

PUSH 

DE 

F4C1 21694C 

07360 

LD 

HL, BUFFER 

F4C4 ED5BEBF7 

07370 

LD 

DE, CFLEN) 

F4CS 19 

07380 

ADD 

HL, DE 

F4C9 37 

07390 

SCF 


F4CA Dl 

07400 

POP 

DE 

F4CB ED52 

07410 

SBC 

HL, DE 

F4CD El 

07420 

POP 

HL 

F4CE DO 

07430 

RET 

NC 

F4CF Dl 

07440 

POP 

DE 

F4D0 21D6F7 

07450 

LD 

HL, TEXT19 

F4D3 CD13F4 

07460 

CALL 

PRINT 

F4D6 C3414A 

07470 

JP 

LI 10 


07480 

• 

5 



07490 

* 



07500 

; Texte 



07510 

* 

J 


F4D9 IC 

07520 TEXT! 

DEFB 

ICH 

- ' F4DA 1F 

07530 

DEFB 

1FH 

F4DB 43 

07540 

DEFM 

’ COPBIT 03. 0 Kassetten kopier programm’ 

F4FE OD 

07550 

DEFB 

CR 

F4FF OD 

07560 

DEFB 

CR 

F500 4B 

07570 

DEFM 

'Kopiert beliebige Kassetten bitweise.’ 

F525 OD 

07580 

DEFB 

CR 

F526 OD 

07590 

DEFB 

CR * 

F527 26 

07600 

DEFM 

’ <C) 1984 Luidger Roeckrath, 5100 Aachen’ • 

F54E OD 

07610 

DEFB 

CR 

F54F 20 

07620 

DEFB 


F550 FF 

07630 

DEFB 

255 

F551 26 

07640 

DEFB 

38 

F552 B4 

07650 

DEFB 

180 

F553 20 

07660 

DEFB 

7 7 

F554 DB 

07670 

DEFB 

219 

F555 FF 

07680 

DEFB 

255 

F556 1A 

07690 

DEFB 

26 

F557 20 

07700 

DEFB 

? ? 

- * ■ F558 DB 

07710 — 

• DEFB 

* r * ■ T' ■ tr'J* r'+, i * . r v . i - 

F559 20 

07720 

DEFM 

> ? 

F55E 8E 

07730 

DEFB 

142 ’ 

F55F 20 

07740 

DEFM 


F564 CF 

07750 

DEFB 

207 

F565 DB 

07760 

DEFB 

219 

F566 20 

07770 

DEFM 

’ Funktionen:’ .. 

F573 FF 

07780 

DEFB 

255 

F574 OD 

07790 

DEFB 

13 

F575 20 

07800 

DEFB 

f ? 

F576 DB 

07810 

DEFE 

219 

F577 20 

07820 

DEFM 

7 7 

F579 41 

07830 BA 

DEFM 

’A ’ 

F57C 8E 

07840 

DEFB 

142 

F57D 20 

07850 

DEFM 

7 7 

F57F 20 

07860 DA 

DEFM 

7 7 

F582 CF 

07870 

DEFB 

207 

F5S3 DB 

07880 

DEFB 

219 

F584 FF 

07890 

DEFB 

255 
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F585 

1A 

07900 

DEFB 

26 




F586 

20 

07910 

DEFB 

y y 




F58? 

DB 

07920 

DEFB 

21 Q 




F588 

20 

07930 

DEFM 

y y 




F5BD 

8E 

07940 

DEFB 

142 




F58E 

20 

07950 

DEFM 





F593 

CF 

07960 

DEFB 

207 




F594 

DB 

07970 

DEFB 

219 




F595 

FF 

07980 

DEFB 

255 




F596 

26 

07990 

DEFB 

38 




F597 

B5 

08000 

DEFB 

181 




F59S 

CF 

OSO 10 

DEFB 

207 




F599 

DB 

08020 

DEFB 

219 



- 

F59A 

FF 

08030 

DEFB 

255 




F59B 

26 

08040 

DEFB 

38 




F59C 

20 

08050 

DEFB 





F59D 

CF 

08060 

DEFB 

207 




F59E 

DB 

■ i oSü7o ' j i 

, DEFB 

219 



* ' <r ‘ ‘«-Vf,* ! 

F59F 

20 

OB 080 

DEFM 

' <L> a d e n' 




F5AC 

FF 

08090 

DEFB 

255 




F5AD 

19 

08100 

DEFB 

25 




F5AE 

20 

081 10 

DE^B 





F5AF 

CF 

08120 

DEFB 

207 




FS BO 

DB 

08130 

DEFB 

219 




F5B1 

FF 

OB 140 ' 

DEFB 

255 




F5B2 

26 

08150 

DEFB 

38 




FSB 3 

20 

08160 

DEFB 

3 3 




F5B4 

CF 

08170 

DEFB 

207 




F5B5 

DB 

08180 

DEFB 

219 




F5B6 

20 

08190 

DEFM 

:-*y> e r g 1 e 

1 

c 

h e n' 

FSCF 

FF 

08200 

DEFB 

255 




F5D0 

OD 

08210 

DEFB 

13 




F5D1 

20 

08220 

DEFB 

7 3 




F5D2 

CF 

08230 

DEFB 

207 




F5D3 

DB 

08240 

DEFB 

219 




F5D4 

FF 

08250 

DEFB 

255 ; .. 




F5D5 

26 

08260 

DEFB 

38 




F5D6 

20 

08270 

DEFB 





F5D7 

CF 

08280 

DEFB 

207 




F5D8 

DB 

08290 

DEFB 

219 




F5D9 

20 

08300 

DEFM 

* <S> c h r e i 

b 

e 

n J 

F5EE 

FF 

08310 

DEFB 

255 




F5EF 

11 

08320 

DEFB 

17 ! 




F5F0 

20 

08330 

DEFB 

3 ? 




F5F1 

CF 

08340 

DEFB 

207 




F5F2 

DB 

08350 

DEFB 

219 




F5F3 

FF 

08360 

DEFB 

255 




F5F4 

26 

08370 

DEFB 

38 




F5F5 

20 

08380 

DEFB 

? ? 




F5F6 

CF 

' 08390 

DEFB 

207 




F5F7 

DB 

08400 

DEFB 

219 




F5F8 

20 

08410 

DEFM 

1 <F> e h 1 e r 

t 

a 

p e laden * 

F61E 

CF 

08420 

DEFB 

207 




F61F 

DB 

08430 

DEFB 

219 




F62Ö 

FF 

08440 

DEFB 

255 




F621 

26 

08450 

DEFB 

38 




F622 

20 

08460 

DEFB 

? y 




F623 

CF 

08470 

DEFB 

207 




F624 

DB 

08480 

DEFB 

219 




F625 

20 

08490 

DEFM 

' <A> u t □ m a 

t 

i 

k (E i n / A u s)’ 
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F64B 

CF 

06500 


DEFB 

207 

F64C 

DB 

03510 


DEFB 

219 

F64D 

FF 

08520 


DEFB 

255 . 

F64E 

26 

08530 


DEFB 

38 

F64F 

20 

08540 


DEFB 

> ? 

F650 

CF 

08550 


DEFB 

207 

F651 

DB 

085 60 


DEFB 

219 

F652 

20 

08570 


DEFM 

1 <D> r u c 1 

F678 

CF 

08580 


DEFB 

207 

F679 

DB 

08590 


DEFB 

219 

F67A 

FF 

08600 


DEFB 

255 

F67B 

26 

08610 


DEFB 

38 

F67C 

20 

08620 


DEFB 

? 7 

F67D 

CF 

08630 


DEFB 

207 

F67E 

20 

08640 


DEFB 

r ? 

F67F 

FF 

08650 


DEFB 

255 

F6B0 

26 

08660 


DEFB 

38 

F681 

B5 

08670 


DEFB 

181 

F682 

20 

08680 


DEFB 

y y 

F683 

00 

08690 


DEFB 

0 

F684 

IC 

08700 

TEXT2 

DEFB 

ICH 

F685 

1F 

08710 


DEFB 

1FH 

F686 

4B 

08720 


DEFM 

’ Kassettenrec 

F6A6 

0D 

08730 


DEFB 

CR 

F6A7 

OD 

08740 


DEFB 

CR - 

F6A8 

00 

08750 


DEFB 

0 

F6A9 

0D 

08760 

TEXT3 

DEFB 

CR 

F6AA 

OD 

08770 


DEFB 

CR 

F6AB 

4C 

08780 


DEFM 

'Laenge des F 

F6BC 

00 

08790 


DEFB 

0 

F6BD 

IC 

08800 

TEXT4 

DEFB 

ICH 

F6BE 

1F 

08810 


DEFB 

1FH 

F6BF 

4B 

08820 


DEFM 

' Kassettenrec 

F6DD 

OD 

08830 


DEFB 

CR 

F6DE 

OD 

08840 


DEFB 

CR 

F6DF 

00 

08850 


DEFB 

0 

F6EÜ 

4C 

08860 

TEXT6 

DEFM 

'Laden. 

F6EF 

OD 

08870 

TEXT6A 

DEFB 

CR 

F6F0 

OD 

08880 


DEFE 

CR 

F6F1 

00 

08890 


DEFB 

0 

F6F2 

OD 

08900 

TEXT7 

DEFB 

CR 

F6F3 

OD 

08910 


DEFB 

CR 

F6F4 

53 

08920 


DEFM 

’ S c h r e i 

F70B 

OF 

08930 


DEFB 

15 

F70C 

OD 

08940 


DEFB 

CR 

F7ÖD 

OD 

08950 


DEFB 

CR 

F70E 

00 

08960 


DEFB 

0 

F70F 

56 

08970 

TEXT8 

DEFM 

’V e r g 1 e 

F72A 

OD 

08980 


DEFB 

CR 

F72B 

OD 

08990 


DEFB 

CR 

F72C 

00 

09000 


DEFB 

0 

F72D 

57 

09010 

TEXTO 

DEFM 

'Weiter. Bitt 

F74B 

OD 

09020 


DEFB 

CR 

F74C 

OD 

09030 


DEFB 

CR 

F74D 

00 

09040 


DEFB 

Cf 

F74E 

OD 

09050 

TEXT 10 

DEFB 

CR 

F74F 

53 

09060 


DEFM 

T Systemf i le: 

F75B 

00 

09070 


DEFB 

0 

F75C 

OD 

09080 

TEXT 1 1 

DEFB 

CR 

F75D 

42 

09090 


DEFM 

'Block : 


(E i n / A u s) 
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F769 

00 

09 1 00 


DEFB 

0 : 

F76A 

OD 

09110 

TEXT IS 

DEFB 

CR 

F76B 

7A 

09120 


DEFM 

’s us. Bytes: ' 

F777 

00 

09130 


DEFB 

n 

F778 

OD 

09140 

TEXT 12 

DEFB 

CR 

F779 

45 

09 1 50 


DEFM 

-’Entry : ’ 

F785 

00 

09160 


DEFB 

0 

F786 

21 

09170 

TEXT13 

DEFM 

’ f ! ' Fehler ! ! ! * 

F794 

00 

09 ISO 


DEFB 

0 

F795 

42 

09190 

TEXT14 

DEFM 

’Basicfile : ’ 

F7A1 

00 

09200 


DEFB 

(■> 

F7A2 

4B 

09210 

TEXT 15 

DEFM 

•Kein ’ 

F7A7 

56 

09220 

TEXT5 

DEFM 

’ Vergleichst ehl er ’ 

F7B7 

OD 

09230 


DEFB 

CR 

F7B8 

OD 

09240 


DEFB 

CR 

F7B9 

00 

09250 


DEFB 

0 : 

F7BA 

4B 

09260 

TEXTlfc 

DEFM 

’ Kopienanzahl ? * 

F7C9 

OE 

09270 


DEFB 

14 

F7CA 

00 

09280 


DEFB 

0 

F7CB 

30 

09290 

TEXT17 

DEFM 

’ 0, Kopie’ 

F7D3 

OD 

09300 


DEFB 

CR 

F7D4 

OD 

09310 


DEFB 

CR 

F7D5 

00 

09320 


DEFB 

0 

F7D6 

OD 

09330 

TEXT19 

DEFB 

CR 

F7D7 

46 

09340 


DEFM 

•’ File zu kurz . * 

F7E4 

OD 

09350 


DEFB 

CR 

F7E5 

OD 

09360 


DEFB 

CR 

F7E6 

00 

09370 


DEFB 

0 

F7E7 

20 

093B0 

TEXT20 

DEFM 

=■ . * 
m 

F7EA 

00 

09390 


DEFB 

0 

F7EB 

0000 

09400 

FLEN 

DEFW 

0 

F7ED 

oooo 

09410 

LSTRAC 

DEFW 

0 

F7EF 

0000 

09420 

LSTREC 

DEFW 

o ! 

F7F1 

0000 

09430 

LSTAD 

DEFW 

o 

F7F3 

0000 

09440 

LSTAD1 

DEFW 

0 •• ■+ ■■ ■ 

F7F5 

00 

09450 

CSF 

DEFB 

0 ■ 

F7F6 

00 

09460 

BF 

DEFB 

0 

F7F7 

00 

09470 

BFS 

DEFB 

0 

F7F8 

00 

09480 

DF 

DEFB 

o ! 

F7F9 

00 

09490 

DFLAG 

DEFB 

0 ; 

F7FA 

00 

09500 

CF 

DEFB 

o ; 

F7FB 

00 

09510 

FTF 

DEFB 

0 

F7FC 

00 

09520 

AFF 

DEFB 

0 ; 

4800 


09530 


END 

START ^ 


00000 TOTAL ERRORS 

21954 TEXT AREA BYTES LEFT 
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2.5.1 Kopierprogramm SAUETAFE 


SAUETAPE ermöglicht Kopieren fast aller flasch i nenprogr amme 
von Kassette auf Diskette. Flasch i nenprogramme , die nicht 
mit Speicherberei chen kollidieren, die das System benötigt, 
können unverändert übernommen werden , andere können 
verschoben werden und werden mit einem Zusatz versehen , der 
nach dem Laden das DOS abschaltet und das Programm in den 
r i cht i gen Spe i cherbere i ch versch i ebt . 


Funkt i on 


Savetape ladt von Kassette wie COPBIT (siehe dort). Im 

Speicher wird das Programm abgelegt, wie es auf der 
Kassette mit allen Headern auf gezei chnet war (siehe (2): 
Teil 1.75. Bei der Aufzeichnung auf Diskette muß das Format 
in das DOS-Loaderf ormat (siehe Teil 1, Kapitel 3.55 

umgewandelt werden. Dies geschieht in der großen Schleife, 
die bei S1 beginnt. Blöcke mit der Anfangsadresse 41E2H 
werden abgefangen, und die Adresse des Sprungbefehles in AE 
gerettet. Nach dem Entrypointblock wird der Entrypoint 
durch diese Autostartadresse ersetzt. 

Fluß das File verschoben werden, so wird das gesamte File so 
auf Diskette auf gezeichnet , daß es später in den 

Spe i cherbere i ch von der Uersch i ebeadresse an aufwärts 
geladen wird. Für jeden Block wird im Anhang die richtige 
Adresse und die Länge notiert. Nach dem Laden wird zunächst 
der Anhang (UERSCH) gestartet, der zuerst das DOS 

abschaltet, indem er eine Initialisierung des 

Kassettenbas i cs simuliert. Dann wird ein Block nach dem 
anderen an seine richtige Adresse verschoben. 
Autostartblöcke werden beim verschobenen Aufzeichnen nicht 
wie oben behandelt sondern ganz normal verarbeitet. Beim 
* ‘ * Uertei 1 en der Blöcke nach dem Laden durch den Anhang wird 
also ein Autostartblock an seine richtige Speicheradresse 
übertragen. Damit ein Autostart wirksam wird, ruft der 
Anhang nach Uerschieben des gesamten Programmes die Adresse 
41E2H per CALL auf. Das gleiche tut der SYSTEFI-Bef eh 1 nach 
Laden einer Aufzeichnung. Steht dort ein RET, wird nach 
Rückkehr vom Unterprogrammaufruf die richtige Startadresse 
angesprungen . 

Da SAUETAPE sehr umfangreich ist, mußte das Que 1 1 programm 
für den C0LASF1 etwas beschnitten werden. Dazu wurden alle 
Texte stark gekürzt. Die Originaltexte sind vor dem 
Que 1 Iprogamm 1 i st i ng angegeben* Außerdem müssen alle 
Kommentar und alle Leerzeichen, die syntaktisch nicht 
unbedingt notwendig sind gestrichen, werden um mit dem 
geringen Speicher, den der C0LASF1 übrig läßt auszukommen. 
Auf der Kassette ist SAUETAPE in dieser Form entha l ten . 

1 

1 

l 

l 
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3 

I 
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Technische Anmerkung s 


SAVETAPE benutzt verschiedene Spe i cherbere i che , die im 
Co 1 our-Gen i e— System eigentlich für bestimmte Systemaufgaben 
reserviert sind. Ein Teil von SAVETAPE ist im Speicher für 
die freiprogrammierbaren Zeichen untergebracht , wodurch 
manchma 1 k 1 e i ne Bi 1 dsch i r ms tör ungen auf treten . Durch d i ese 
i ntens i ve Ausnutzung des Speicher war es aber mög lieh 25736 
C =6488H im 32K-System, im 16K-3ystem: 9352 = 2488H) Bytes 
für das zu kopierende File zur Verfügung zu stellen. 


■ **+ - ** Hi i. !**■*> ' 1 ■ * , v i b *** * 7 - tf ^ ^ ^ ifirsw-u 


Nachdem SAVETAPE geladen ist, meldet sich das Haupmenue: 


****** SAVETAPE VI. 0 ****** 


Kopiert Kassettenprogramme auf Diskette. 
CC> 1984 Luidger Roeckrath, 5100 Aachen 
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Durch Anti ppen der Buchstaben in <> kann die entsprechende 
Funktion angeuählt werden. Ist die jeweilige Funktion 

beendet, wird automatisch ins Hauptmenue zurUckgekehrt . 

1 

1 

In den beiden Kästen hinter "Funktion:” wird der Zustand 
der Flags für die Automatik und den Drucker angezeigt. ”A" 
bedeutet Automat i k an , W D" bedeutet Drucker ein. 


I 



E 
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f 


E 


t 

Nach der Aufforderung, 1 den Kassettenrecorder 

ui edergabebere i t zu machen und deren Bes tat, i gung , beg i nnt 
SAUETAPE das Programm zu lesen. Sobald der Header erkannt 
uurde , ersehe i nen in der oberen , rechten B i 1 dsch i rmecke die 
zuei Sterne. Das File uird von da an Byte für Byte 
e i ngel esen und i m Spe i eher abge 1 egt . So 1 1 te eine 
Aufzeichnung am Ende kein vollständiges Byte mehr haben 
(bei geschützten Formaten), werden auch die restlichen Bits 
richtig geladen und gespeichert. 

Während des Ladens läuft in der B i 1 dsch i rmmi tte der 
e i ngelesene Text durch . Ue i terh in uird be i Systemf i 1 es ein 
F gefolgt vom Filenamen, ein B für jeden Block und ein E 
für den Entrypo i ntb 1 ock angeze i gt . 

Beispiel: C0LI10N 

FCOLtlONBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBE 

I 

Das Laden uird unter folgenden Bedi ngungen gestoppt : 

1) Automatik Ein (Startbedingung) 

soba 1 d ei ne Pause in der Aufzeichnung auftritt. 

2 ) Automatik Aus j 

soba Id eine Pause auftritt und die < BREAK >-Taste gedrückt 
wird. 

I 

Will man den Lade vor gang mitten in ei ner Aufzeichnung 
beenden , kann man die Pause durch Anhai ten des 

Kassettenrecorder erzeugen . Auch uenn der Header gesucht 
uird, a 1 so bevor die zue i Sterne erschei nen , i st es 

M ' mögl ich , den Ladevorgang abzubrechen . Hier ist nur 

erforderlich die < BREAK >-Taste zu drücken, der 

Kassettenrekorder braucht n i cht angeha 1 ten zu werden . 


r* *. 
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- Anleitung 


Analyse der geladenen Aufzeichung 


Nach Beend igung des Lade Vorgangs u i rd die geladenen 
Auf ze i chnung analysiert. Dabe i uird f estgeste 11t, ob es 
sich um ein System- oder Basicf i le handelt: 

1 ) Systemf i 1 e : 

Das Format für Systemf i 1 es ist f o 1 gendes C s i ehe auch 
Colou? — Gen i e-ROM— L i st i ng ) : 


Filename: 55H 6 Bytes Filename ( 

-i Block: - 3CH Länge Startadresse (LSB/MSB) Datenbytes * ^ 

Prüf summe 

Entry: 78H Entrypoint (LSB/MSB) 

Beispiel: COLMON ( 6000H-6FFFH ) | 

Filename: 55H 43H 4FH 4CH 4DH 4FH 4EH - 55H COLMON 
Block : 3CH 80H 88H 60H C 1 28 Datenbytes) (Prüfsumme) 

= 6000H-607FH 
<30 ähnl iche Blöcke> 

Block : SCH 80H 80H 6FH (128 Datenbytes) (Prüf summe) 

= 6F80H-6FFFH 

Entry : 78H 00H 60H = 6000H 

SAVETAPE erkennt automat i sch das Systemformat und gibt in 
obi gen Beispiel aus: 

1 

1 Systemfile: COLMON 

i - - Block , : 6000H-6FFFH f • ■ [ 1 .* t j. w. ?■» • ; s. * '*3 — .Jtf r :i 

Entry : 6000H 

1 Bi 1 den mehrere Blöcke des Systemf i 1 es einen 

j zusammenhängenden Speicherblock , uird nur dieser angezeigt 

’ (siehe Beispiel.). 

| * 

Be i Bl öcken zu i sehen 1 und 3 Bytes Länge uird zusätzli ch 
der Inhalt des Blocks angeze igt. Da diese Blöcke oft 
Sprung vektoren sind , die über sehr i eben werden , ist di ese 

I nf ormat ion besonders uertvol 1 . Ein Sprungbef eh 1 der auf 
die Adresse 4 1 E2H-4 1E4H ge 1 aden uird, bedeutet e i nen 
Autostart . Sie können a 1 so sofort die Startadresse e i nes 
Programmes mit Autostart ab 1 esen , z . B . : 

Block : 41E2H-41E4H : C3H E8H 41H 

I 

bedeutet , daß soba 1 d der Entry im Systemf i 1 e er re i cht , 

, automatisch die Adresse 41E8H angesprungen uird. 

Be i f eh 1 erhaften B 1 öcken uird nur der Block des 

Systemfiles, der den Fehler enthielt, entsprechend markiert 
ausgedruckt : 

Systemfile: COLMON 

! Block : 6000H— 637FH 

Block : 6380H-63FFH! ! ! Fehler !!! 
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Block 

Entry 


6480H-6FFFH 

6000H 


Vor jedem Block (55H, 3CH , 78H) können 
stehen, die vom System-Loader im ROH 
uerden. SAUETAPE zeigt deren Anzahl 
erscheint auch häufig diese Anzeige: 


zusätzliche Bytes 
einfach überlesen 
an* Bei Fehler 


Systemf i le : 
Block : 
Block : 
zus. Bytes: 
Block : 
Entry : 


COLHOH 
6000H-637FH 
6380H-63FFH! ! ! 
0073H 

6480H-64FFH 

6000H 


Fehler ! ! ! 


Auch nach dem Entry können bei geschützten 
zusätzliche Bytes auf treten* 


Formaten 


2> Bas i cprogramme 

Bas 1 cprogramme uerden folgendermaßen auf gezei chnet : 
Filename: 1 Byte 

Basictext, uie im Speicher einschließlich der drei 
Ende . 

CS i ehe Co 1 our-Gen ie-ROH-Li st ing) 


0 am 


Bas i cprogramme enthalten keine Prüfsumme, aber durch das 
Pointersystem (jede Zeile enthält einen Pointer auf die 
nächte Zei le) kann die geladene Aufzeichnung im geuissen 
Rahmen geprüft uerden, uobei es unerheblich ist, uo das 
Bas i cprogramm vorher im Speicher stand. 

Beispiel: Demoprogramm 

Basicf i le : D 


*Bei Fehlern im Pointersystem uird für jeden falschen 
i Pointer die Heldung Fehler ausgegeben .j • * > »a ^ «r,< n. »*• w. w 1*** >*> • i* 

Basicf i 1 e : D 
! * t Fehler ! ! ! 

! ♦ ! Fehler ! ! ! 


Bei beiden Filetypen 
ersehe i nen : 


kann eine ueitere Fehlermeldung 


File zu kurz. 


Diese erscheint zum Beispiel, uenn ein Systemprogramm 
mitten im Block abbricht oder der Entry fehlt und bei einem 
Bas i cprogramm, uenn die drei 0 am Ende fehlen . 

Bei Datenaufzeichnungen kann entueder nichts erscheinen 
oder es kann zufällig als einer der Filetypen erkannt 
uerden. Dann erscheinen höchstuahrscheinl ich zahlreiche 
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Fehlermeldungen. | 

Eine geladene Aufzeichung seht bis zum nächsten Laden für 
Vergleiche und zum Aufzeichnen zur Verfügung 

Die Analyse des Files wird bei eingeschaltetem Drucker (<D> 
im Hauptmenue) paralell zur Bildschirmausgabe auf den 
Drucker ausgegeben . i 


Vergl ei chen 


Die in den Speicher geladenen Aufzeichung kann mit einer 
weiteren verglichen werden. Abbruch wie beim Laden und 
automatisch beim 1. Ladefehler. Beim Vergleichen wird der 
eingelesene Text nicht auf dem Bildschirm angezeigt. Die 
Anzeige ”Fname BBBBBBBBBBE” erscheint, wenn das zu 
vergleichende File mit ”L” geladen wurde, und nicht, wenn 
es mit ”F” geladen wurde. 


Schrei ben 


Das Format für Systemfiles auf Diskette ist folgendermaßen: 
CFilename steht nur in Direktory!) 

Block : B 1 Länge Startadresse C LSB/MSB) Datenbytes ' * **'**' 

Entry : 02 02 E i nsprungadresse 

Die Länge eines Blockes gilt einschließlich der 

Startadresse. Daher entspricht 00 = 254 Datenbytes, 01 = 
255 und 02 =256! > 

Beispiel : COLMON 

Block : 0 1 H 82H 00H 60H (128 Datenbytes) 

< 30 ähnl iche Blöcke > 

Block : 0 1 H 82H 80H 6FK C128 Datenbytes) 

Entry : 02H 02H 00H 60H I 

SAVETAPE setzt das oben beschriebene Kassettenformat in das 
Diskettenformat um. Viele Sp ie 1 programme belegen 
Speicherbereiche , die das Disk-Basic auch benötigt. Ein 
d i rektes Laden auf diese Bereiche von Di sk würde a 1 so zu 
einem Systemabsturz führen. Daher bietet SAVETAPE nach der 
Abfrage des Filenamen, welche mit einem korrekten Filenamen 
( F i 1 ename< /Typ< . Password< : d > > > ) beantwortet werden muß, die 
Höglichkeit das Programm zu Verschieben. Uenn diese 
Möglichkeit gewählt wird (durch <J>), wird das gesamte 
Programm (auch wenn es aus verschiedenen Spe i cherbere i chen 
besteht) in einem Block startend mit der bei der Frage 
"neue Ladeadresse” hexdezimal angegebenen Adresse (<ENTER> 
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*= 60005 auf Diskette gespeichert. Dahinter wird ein Zusatz 
gehängt, der beim Aufruf des Programmes mit CMD”S filename" 
dieses nach Abschalten des DOS wieder in die 

Speicherbereiche überträgt , in denen es ursprüngl ich 
lokalisiert war. Entrypoint und Autostart werden beachtet, 
so daß das Programm nach Laden und Verschieben 

ordnungsgemäß gestartet wird. j 

Ein Verschieben ist bei allen Programmen notwendig, die 
Blöcke haben, die unter 5C9AH laden, da das DOS den 
Spe i cherbere i ch 5800H- folgendermaßen nutzt: 

: allgemeine Verwendung: Disk-Basic - DOS 

nicht genau bekannt 

: Filebuffer ”0” : FCB und Sektorbuffer 

(SB9AH-5C99H) für CMD"S”, CMD”L”, SAVE, LOAD, 
etc . 

: Filebuffer 1 für Disk-Basic 
OPEN A$, 1 ,F$ I 

: Filebuffer 2 dito 

: Filebuffer 3 dito 

Cbei mehr als 3 Files entsprechend weiter) 

: Programmtext 

• *|< -<i ' 1* ’ , 1 b 1 •( ■ ' '•> » ’** I >"■»»> . I - . « , 

Formate mit Preloader und/oder 

Bausrateumscha 1 tung werden erkannt und entsprechend 

verarbeitet. Bei diesen Formaten Czu erkennen durch 
zahl reiche ”zus . Bytes” > ist ein Versch i eben immer zu 
empfehlen . 


5800H-5B77H 

5B78H-5C99H 

5C9AH-5DBBH 

5DBCH-5EDDH 

5EDEH-5FFFH 

6000H- 

* ' * ' * * 

Best i mmte 




Die komplexen Anal ysevorgänge beim Laden machen das Laden 
mit SAVETAPE etwas kr i t i scher als das norma 1 e Ei n 1 aden mit 
CLO AD oder SYSTEM . Desha 1 b kann mit <F> eine weitere 
Laderoutine auf gerufen werden, die während des Laden nur 
den Text durchlaufen läßt, aber nicht "Fnarne BBBBBE” 
ausdruckt . Dadurch werden viele 1 angwi er ige Operat l onen 
e i ngespart und das Laden ist erheb 1 i ch unkr i t i scher . Be i 
Ladeprob lernen helfen im übrigen oft auch folgende Tips: 

1 ) Höhen auf Maximum i 

2 > Tonkopf Justage : Uährend der Wiedergabe auf maximale 
Höhenwiedergabe (deutlich zu hören) abstimmen. Nach 
erfolgreichem Laden wieder auf Ihre Standardeinstellung mit 
einer I hrer a 1 ten Kassetten einstel 1 en und dann die Kopien 
anfertigen . 

3) Lautstärke: Bei manchen Auf zeichungen hilft starkes 
übersteuern, bei anderen aber eher eine etwas niedrigere 
Wahl der Lautstärke (2) . \ 
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1 1 ' 


Automat: x l< 


Die Automatik (Abbruch des Laden» wenn eine Pause auftritt) 
kann abgescha 1 tet uerden » wenn eine Auf ze ichnung mit Pausen 
geladen werden sol 1 . Beim Starten des Programmes ist die 
Automatik ein. Durch Eingabe einer <A> im Hauptmenue kann 
sie ab- und wieder eingeschaltet werden. Der Zustand des 
Automat i kf 1 ags kann im Hauptmenue j ederzeit im linken 
Kasten abgelesen werden . 


t's * : 




* . 




UV 




Die Analyse eines geladenen Files kann wahlweise auf einen 
Drucker zusätz 1 i ch ausgedruckt werden . Denn Sie di es 
wünschen » mUßen Sie im Hauptmenue das <D> anti ppen . Hit der 
gleichen Taste können Sie den Drucker wieder abschalten. 
Der jeuei 1 ige Zustand kann im rechten Kasten abgelesen 
werden. Bitte achten Sie darauf, daß bei eingeschaltetem 
Drucker , auch wi rk 1 i ch ein Drucker angesch lossen und ON 
LINE ist. Sonst bleibt das Programm nach dem Laden stehen! 
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TEXT1 


BA: 
■*'" DA: 


; Or ig i na 1 texte von SAVETAPE 


> 


Texte 


DEFB 

ICH 

DEFB 

1 FH 

DEFM 

> 

DEFB 

CR 

DEFB 

CR 

DEFM 

'Kop 

DEFB 

CR 

DEFM 

' <C> 

DEFB 

CR 

DEFB 

} > 

DEFB 

255 

DEFB 

38 

DEFB 

180 

DEFB 

> > 

DEFB 

219 

DEFB 

255 

DEFB 

26 

DEFB 

> > 

DEFB 

219 

DEFM 

> 

DEFB 

142 

DEFM 

> 

DEFB 

207 

DEFB 

219 

DEFM 

> F 

DEFB 

255 

DEFB 

13 

DEFB 

> > 

DEFB 

219 

DEFM 

> > 

DEFM 

* A 

DEFB 

142 

DEFM 

* * 

DEFM 


DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

26 

DEFB 

> > 

DEFB 

219 

DEFM 

> 

DEFB 

142 

DEFM 

> 

DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

181 

DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

> > 

DEFB 

207 


****** 


SAVETAPE VI .0 


t ♦ * ♦ * 3 
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P + 


H * T ' * 


DEFB 

219 

DEFH 


DEFB 

255 

DEFB 

25 

DEFB 

> > 

DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

> ) 

DEFB 

207 

DEFB 

219 

DEFH 

> 

DEFB 

255 

DEFB 

13 

DEFB 

ß > 

DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

> > 

DEFB 

207 

DEFB 

219 

DEFH 

> 

DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

> > 

DEFB 

207 

DEFB 

219 

DEF11 

* 

DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

ß > 

DEFB 

207 

DEFB 

219 

DEFW 

ß 

DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

ß ß 

DEFB 

207 

DEFB 

219 

DEFH 

> 

DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

t > 

DEFB 

207 

DEFB 

* » 

DEFB 

255 

DEFB 

38 

DEFB 

181 

DEFB 

> > 

DEFB 

0 


<L> a d e n 


<U> e r g 1 


> , ^ t '■'irtvV* 


<S> ehre 


< F > e h 1 e 




<A> u t o m 


<D> ruck 


e i c h e n * 


*■ » r * ‘ l-f-'H. 1 * * *■* ■ 4 jlt 


iben auf Disk* 


rtape laden 


* 1 *'■*, * 4 f tH* 1 . " t\ 


atik CEin/Aus)* 


er (Ein/Au s> 
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TEXT2 : 

DEFB 

ICH 


DEFB 

1 FH 


DEFM 

1 Kassettenrecorder auf 


DEFB 

CR 


DEFB 

CR 


DEFB 

0 

TEXT3: 

DEFB 

CR 


DEFB 

CR 


DEFM 

’Laenge des Files : * 


DEFB 

0 

TEXT4 : 

DEFB 

ICH 


DEFB 

1 FH 


DEF11 

7 Fi 1 ename * 


DEFB 

0 

TEXT5B : 

DEFM 

' Ver sch i eben * 


DEFB 

0 

TEXT5A : 

DEFM 

7 Neue Ladeadresse 7 


DEFB 

0 

TEXT6 : 

DEFM 

L a d e n « « * ^ 

TEXT6A : 

DEFB 

CR 


DEFB 

CR 


DEFB 

0 'ä i ^ UV—'-* i i 

TEXT?: 

DEFM 

Schreiben. . 


DEFB 

CR 


DEFB 

CR 


DEFB 

0 

TEXT8 : 

DEFM 

' V e r g 1 e i chen 


DEFB 

CR 


DEFB 

CR 


DEFB 

0 

TEXT© : 

DEFM 

7 Weiter . Bitte < ENTER > 


DEFB 

CR 


DEFB 

CR 


DEFB 

0 

TEXT10 : 

DEFB 

CR 


DEFM 

7 Systemf i 1 e : 7 


DEFB 

0 

TEXT 1 1 : 

DEFB 

CR 


DEFM 

> Block : ' 


DEFB 

0 

lx “■ T» "*l 4- j f J + J- <i|^ ^ 

TEXT18 : 

DEFB 

CR 


DEFM 

'zus. Bytes: ' 


DEFB 

0 

TEXT 1 2 : 

DEFB 

CR 


DEFM 

’Entry : 7 


DEFB 

0 

TEXT13 : 

DEFM 

Mt! Fehler !!*' 


DEFB 

0 

TEXT 14 : 

DEFM 

'Basicfile : * 


DEFB 

0 

TEXT15: 

DEFM 

'Kein * 

TEXT5: 

DEFM 

7 Vergleichsf eh 1er * 


DEFB 

CR 


DEFB 

CR 


DEFB 

0 

TEXT16: 

DEFM 

> O > 
+ 


DEFB 

0 

TEXT17: 

DEFM 

7 : Disk-Fehler' 


DEFB 

CR 


DEFB 

CR 


U i edergabe 


J 


> 


druecken * 


< *** ’f I ^1* 4*4 * 
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TEXT19 : 


TEXT20 : 


DEFB 0 

DEFB CR 

DEFN * File zu kurz. ' 

DEFB CR 

DEFB CR 

DEFB 0 

DEFB * : * 

DEFB 0 

* 

END * 


* + ^ r 1 f*- ^ ^ 'V * ' ' ‘ * * i -*(*** p *4 r 




* j * /*■ i. 


* i-** f ). » 




> / * ■*' 


- tj» 
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00 1 00 
001 10 
00120 
00130 


SAVETAPE Version 1.0 vom 18. 4. 84 


Kopiert Lclour-Senie Kassetten aut Diskette 




00140 

; <c) 

Luidger Röckr; 



00150 

* 

* 

Noppi usstr . l c 



00160 

* 

* 

5100 Aachen 



00170 

■ 

J 

(0241)34962 



00180 

• 

* 




00190 

1 




00200 

• 


00 ÖD 


00210 CR 

EQU 

0DM 



00220 

■ 

9 




00230 

m 

9 




00240 

• 

9 




00250 

; ASE6 


4800 


00260 

ORG 

4800H 

4800 

F3 

UUi /v \ 

00280 START 

DI 


4801 

31EF57 

00290 

LD 

SP , 57EFH 

4804 

3E69 

00300 

LD 

A, 105 

4806 

321243 

003 10. 

LD 

(4312H) ,A . 

4809 

3E03 

00320 

LD 

A, 3 

4 BOB 

CDB03F 

00330 

CALL 

3FB0H 

480 E 

21C6F4 

00340 

LD 

HL, TEX TI 

4811 

CD00F4 

00350 

CALL 

PRINT 

4SI 4 

CD2B00 

00360 STi 

CALL 

INCH 

4817 

FE61 

00370 

CP 

* a ? 

481.9 

3802 

00380 

JR 

C, ST2 

48 1B 

D620 

00390 

SUB 

’ a 7 ~ 7 A 7 

48 ID 

FE4C 

00400 ST2 

CP 

J L J 

481F 

28 IC 

00410 

JR 

2, LADEN 

4821 

FE53 

00420 

CP 

’S 7 

4823 

CAF94A 

00430 

JP 

Z, SCHREI 

4826 

FE56 

00440 

CP 

7 V 7 

4828 

CA9351 

00450 

JP 

2 , VER6LE 

482B 

FE41 

00460 

CP 

7 A 7 

482D 

CAD34A 

00470 

JP 

Z, AUTOM 

4830 

FE44 

00480 

CP 

7 D 7 

4832 

CAE64A 

00490 

JP 

2 , DREA 

4835 

FE 46 

00500 

CP 

jpj >J -' 

4837 

CA3C48 

00510 

JP 

Z, FTAPEL 

483A 

18DB 

00520 

JR 

STI 



00530 

• 

* 




00540 

; Fehlerhaftes Tape 



00550 

• 

V 


483C 

3E 

00560 FTAPEL 

DEFB 

3EH 

483D 

AF 

00570 LADEN 

XOR 

A 

483E 

3295F5 

00580 

LD 

(FTF) ,A 

4841 

21E8F4 

00590 

LD 

HL, TEXT2 

4844 

CD00F4 

00600 

CALL 

PRINT 

4847 

2 1 0000 

00610 

LD 

HL , ö 

484A 

2289F5 

00620 

LD 

(LSTREC) ,HL 

484D 

2287F5 

00630 

LD 

(LSTRAC) ,HL 

4850 

CDEB51 

00640 

CALL 

WA IT 

4853 

21 1EF5 

00650 

LD 

HL, TEXT6 

4856 

CD0ÖF4 

00660 

CALL 

PRINT 

4859 

117F46 

00670 

LD 

DE, 467FH 

485C 

2UCCB 

00680 

LD 

HL , OCB 1 CH 

485F 

22C851 

00690 

LD 

(READY) , HL 


* "LH f. v. W 


,,‘^>1 ' Im I *i 


- LD A, . . 



2.5.1 Kop i erprogramm SAUETAPE 


Quel lprogramm 


Seite 167 


4862 

FD2A2040 

00700 LAD 

LD 

IY, (4020H) 

4866 

3E55 

00710 

LD 

a, 

4S68 

328648 

00720 

L.D 

(L1110+1) , A 

486B 

21775B 

00730 

LD 

HL, BUFFER-1 

486E 

CD3C52 

00740 

CALL 

READS 

4871 

DA4E4A 

00750 

JP 

C , L 1 1 0 

4874 

3A95F5 

00760 

LD 

A, (FTF) 

4877 

A7 

00770 

AND 

A 

4878 

207 D 

00780 

JR 

NZ , LI 1 16 

487A 

CDC851 

00790 LI 

CALL 

READY 

487D 

FE 30 

00800 

CP 

3CH 

487F 

280A 

00810 

JR 

Z,L11I1 

4881 

FE73 

00820 

CP 

78H 

4883 

2861 

00830 

JR 

Z, LI 1 15 

4835 

FE55 

00840 LI 110 

CP 

55H 

4887 

2844 

00850 

JR 

Z, LI 1 14 

4889 

18EF 

00860 

JR 

LI 

486B 

FD360042 

00870 LI 111 

LD 

( I Y+0) , ’B J 

488F 

FD23 

00880 

INC 

IY 

4891 

AF 

00890 

XOR 

A 

4892 

3294 F 5 

00900 

LD 

(CF) , A 

4895 

CDC851 

00910 

CALL 

READY 

4898 

47 

00920 

LD 

B, A 

4899 

CDC851 

00930 

CALL 

READY 

489C 

09 

00940 

EXX 


489D 

6F 

00950 

LD 

L, A 

469E 

09 

00960 

EXX 


489F 

CDCS51 

00970 

CALL 

READY 

48A2 

09 

00980 

EXX 


48A3 

67 

00990 

LD 

H, A 

48A4 

D9 

01000 

EXX 


48A5 

CDC851 

01010 LI 112 

CALL 

READY 

43A8 

09 

01020 

EXX 


48A9 

7C 

01030 

LD 

A, H 

48AA 

FE43 

01040 

CP 

43H 

‘ 48AC 

70 

01050 

LD 

A,l 

48AD 

23 

01060 

INC 

HL 

48AE 

09 

01070 

EXX 


48AF 

2010 

01080 

JR 

NZ, LI 1 13 

48B1 

FE12 

01090 

CP 

12H 

48B3 

2000 

01100 

JR 

NZ , L 1 i 1 3 

48B5 

7E 

01110 

LD 

A, (HL) 

48B6 

321243 

01120 

LD 

(4312H) , A 

48B9 

3669 

01 130 

LD 

(HL) , 105 

48BB 

ED44 

01140 

NEG 


48BÜ 

86 

01150 

ADD 

A, (HL) 

48BE 

3294F5 

01160 

LD 

(CF) , A 

48C1 

1 0E2 

01170 LI 113 

DJNZ 

LI 1 12 

48C3 

CDC351 

01 180 

CALL 

READY 

48C6 

3A94F5 

01190 

LD 

A, (CF) 

4809 

86 

01200 

ADD 

A, (HL) 

48CA 

77 

01210 

LD 

(HL) ,A 

4BCB 

18AD 

01220 

JR 

LI ' 

48CD 

FD 3600 46 

01230 LI 114 

LD 

( I Y+0) , ’ F' 

48D1 

FD23 

01240 

INC 

IY 

48D3 

0606 

01250 

LD 

B, 6 

48D5 

CDC851 

01260 LI 11 14 

CALL 

READY 

48B8 

F 07 700 

01270 

LD 

(IY+O) , A 

48DB 

FD23 

01280 

INC 

IY 

48DD 

10F6 

01290 

DJNZ 

LI 1 1 14 




,'^4 . c.‘fl t f’ c:/\ 1^4/i.tr * . i ir l 
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4SDF 

3E3C 

01300 

LD 

A, 3CH 

49E1 

328648 

01310 

LD 

(LI 1 10+1 ) , A 

4 BE 4 

1894 

01320 

JR 

LI 

48E6 

FD360045 

01330 LI 115 

LD 

(IY+O) , 

4BEA 

FD23 

01340 

INC 

IY 

4BEC 

CDC851 

01350 

CALL 

READY 

48EF 

CDC851 

01360 

CALL 

READY 

4BF2 

3E69 

01370 

LD 

A, 105 

48F4 

321243 

01380 

LD 

(4312H) , A 

48F7 

CDC851 

01390 LI 1 16 

CALL 

READY 

4BFA 

1SFB 

01400 

JR 

LI 1 16 

48FC 

3EÖ0 

01410 L22 

LD 

A, 0 

4BFE 

BF 

01420 

ADC 

A, A 

48FF 

3296F5 

01430 

LD 

(AFF) ,A 

4902 

FD222040 

01440 

LD 

(4020H) , IY 

4906 

3A92F5 

01450 

LD 

A, (DF) 

4909 

3293F5 

01460 

LD 

(DFLAG) , A 

490C 

11785B 

01470 

LD 

DE, BUFFER 

490F 

A7 

01480 

AND 

A 

4910 

ED52 

01490 

SBC 

HL, DE 

4912 

E5 

01500 

PUSH 

HL 

4913 

21F6F4 

01510 

LD 

HL, TEXT3 

4916 

CDQ0F4 

01520 , 

CALL 

PRINT 

4919 

El 

01530 

POP 

HL 

491 A 

CD54F4 

01540 

CALL 

PRHEX 

491 D 

CDB94A 

01550 

CALL 

CRCR 

4920 

22B5F5 

01560 

LD 

(FLEN) ,HL 

4923 

118046 

01570 

LD 

DE, 4680H 

4926 

0680 

01580 

LD 

B, 128 

4928 

3E20 

01590 

LD 

A,’ ’ 

492A 

12 

01600 LI 13 

LD 

(DE) , A 

492B 

13 

01610 

INC 

DE 

492C 

1 OFC 

01620 

DJNZ 

LI 13 

492E 

11785B 

01630 

LD 

DE, BUFFER 

4931 

2A85F5 

01640 

LD 

HL, (FLEN) 

4934 

19 

01650 

ADD 

HL, DE 

4935 

2B 

01660 

DEC 

HL 

4936 

3A96F5 

01670 

LD 

A, (AFF) 

4939 

A7 

01680 

AND 

A 

493A 

2801 

01690 

JR 

Z, LI 14 

493C 

2B 

01700 

DEC 

HL * - 

493D 

CDA54A 

01710 LI 14 

CALL 

NULL 

4940 

CA584A 

01720 

JP 

Z , L 1 00 

4943 

1A 

0 1 730 

LD 

A, (DE) 

4944 

FE55 

01740 

CP 

’U ? 

4946 

2806 

01750 

JR 

Z,L1 15 

4948 

CDA54A 

01760 

CALL 

NULL 

494B 

CA584A 

01770 

JP 

Z , L 1 00 

494E 

21FFFF 

01780 LI 15 

LD 

HL, OFFFFH 

4951 

1A 

01790 LI 12 

LD 

A, (DE) 

4952 

CDACF4 

01800 

CALL 

ENDE 

4955 

23 

01810 

INC 

HL 

4956 

13 

01820 

INC 

DE 

4957 

FE55 

01830 

CP 


4959 

20F6 

01840 

JR 

NZ, LI 12 

495B 

7C 

01850 

LD 

A, H 

495C 

B5 

01860 

OR 

L 

495D 

E5 

01870 

PUSH 

HL 

495E 

F5 

01880 

PUSH 

AF 

495F 

2144F5 

01890 

LD 

HL, TEXT18 
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4962 C400F4 

01900 

CALL 

NZ, PRINT 

4965 Fl 

01910 

POP 

AF 

4966 Fl 

01920 

POP 

HL 

4967 CDC14A 

01930 

CALL 

MZUS 

4 Q 6A C454F4 

01940 

CALL 

NZ, FRHEX 

496D 2136F5 

01950 

LD 

HL, TEXT 10 

4970 C DOOF 4 

01960 

CALL 

PRINT 

4973 0606 

01970 

LD 

B,6 

4975 1A 

01980 LU 

LD 

A, (DE) 

4976 CD28F4 

01990 

CALL 

OUTCH 

4979 13 

02000 

INC 

DE 

497A 10F9 

02010 

DJNZ 

LU 

497C 21FFFF 

02020 LI 2 

LD 

HL, OFFFFH 

497F 1A 

02030 L121 

LD 

A, (DE) 

4980 CDACF4 

02040 

CALL 

ENDE 

4983 13 

02050 

INC 

DE 

4984 23 

02060 

INC 

HL , 

4965 FE78 

02070 

CP 

78H 

4987 2804 

02080 

JR 

Z, L122 

4989 FE3C 

02090 

CP 

3CH 

498B 2ÖF2 

02100 

JR 

NZ , L.121 

498D F5 

02110 LI 22 

PUSH 

AF 

498E 7C 

02120 

LD 

A,H 

498F B5 

02130 

OR 

L 

4990 28 DF 

02140 

JR 

Z,L123 

4992 CDC14A 

02150 

CALL 

MZUS 

4995 E5 

02160 

PUSH 

HL 

4996 2144F5 

02170 

LD 

HL, TEXT 18 

4999 C DOOF 4 

02180 

CALL 

PRINT 

499C El 

02190 

POP 

HL 

499D CD54F4 

02200 

CALL 

PRHEX 

49 A0 Fl 

02210 LI 23 

POP 

AF 

49A1 FE78 

02220 

CP 

78H 

49A3 2873 

02230 

JR 

Z,L15 

49A5 1A 

02240 

LD 

A, (DE) 

49A6 4F ' 

02250 ‘ ' " ' 

LD 

C, A 

49 A7 13 

02260 

INC 

DE 

49A8 1A 

02270 

LD 

A, (DE) 

49A9 6F 

02280 

LD 

L, A 

49AA 13 

02290 

INC 

DE 

49 AB 1A 

02300 

LD 

A, (DE) 

49AC 67 

02310 

LD 

H,A 

49AD 13 

02320 

INC 

DE 

49AE 85 

02330 

ADD 

A,L 

49AF 47 

02340 

LD 

B, A 

4 9 BO C5 

02350 

PUSH 

BC 

49B1 ED538BF5 

02360 

LD 

(LSTAD) , DE 

49B5 1A 

02370 L14 

LD 

A, (DE) 

49B6 CDACF4 

02380 

CALL 

ENDE 

49B9 13 

02390 

INC 

DE 

49BA 80 

02400 

ADD 

A,B 

49BB 47 

02410 

LD 

B, A 

49BC OD 

02420 

DEC 

C 

49BD 20F6 

02430 

JR 

NZ, L14 

49BF 1A 

02440 

LD 

A, (DE) 

49CÖ 13 

02450 

INC 

DE 

49C1 90 

02460 

SUB 

B 

49C2 2800 

02470 

JR 

Z, L 1 6 

49C4 E5 

02480 

PUSH 

HL 

49C5 CD5CF4 

02490 

CALL 

PRBL 
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49CS 

El 

02500 

POP 

HL 

49C9 

010000 

02510 

LD 

BG, 0 

49CC 

ED4389F5 

02520 

LD 

(LSTREC) , BC 

49D0 

328FF5 

02530 L18 

LD 

(CSF) , A 

49D3 

CI 

02540 

POP 

BC 

49D4 

ES 

02550 

PUSH 

HL 

49D5 

D5 

02560 

PUSH 

DE 

49D6 

ED5BB9F5 

02570 

LD 

DE, (LSTREC) 

49DA 

7B 

02580 

LD 

A, E 

49DB 

B2 

02590 

OR 

D 

49DC 

2003 

02600 

Jft 

NZ, L16 

49DE 

3C 

02610 

INC 

A 

49DF 

1808 

02620 

JR 

L17 

49E1 

37 

02630 L16 

SCF 


49E2 

ED52 

02640 

SBC 

HL, DE 

49E4 

FS 

02650 

PUSH 

AF 

49E5 

C45CF4 

02660 

CALL 

NZ,PRBL 

49ES 

Fl 

02670 

POP 

AF 

49E9 

Dl 

02680 L17 

POP 

DE 

49EA 

El 

02690 

POP 

HL 

49EB 

280B 

02700 

JR 

Z, L13 

49ED 

2287F5 

02710 

LD 

(LSTRAC) , HL 

49F0 

ES 

02720 

PUSH 

HL 

49F1 

2A8BF5 

02730 

LD 

HL, (LSTAD) 

49F4 

228DF5 

02740 

LD 

(LSTAD1) ,HL 

49F7 

Ei 

02750 

FÜP 

HL 

49F8 

0600 

02760 L13 

LD 

B, 0 

49FA 

0D 

02770 

DEC 

C 

49FB 

09 

02780 

ADD 

HL,BC 

49FC 

2289F5 

02790 

LD 

(LSTREC), HL 

49FF 

3A8FF5 

02800 

LD 

A, (CSF) 

4A02 

A7 

02810 

AND 

A 

4A03 

CA7C49 

02820 

JP 

Z, L12 

4A06 

CD5CF4 

02830 

CALL 

PRBL 

4A09 

210000 

02840 

LD 

HL, 0 

4A0C 

2289F5 

02850 

LD 

(LSTREC) ,HL 

4A0F 

2152F5 

02860 

LD 

HL, TEXT13 

4A12 

CD00F4 

02870 

CALL 

PRINT 

4A15 

C37C49 

02880 

JP 

L12 



02890 

? 


4A18 

CD5CF4 

02900 L15 

CALL 

PRBL 

4A1B 

214BF5 

02910 

LD 

HL, TEXT12 

4A1E 

CD00F4 

02920 

CALL 

PRINT 

4A21 

1A 

02930 

LD 

A, (DE) 

4A22 

6F 

02940 

LD 

L, A 

4A23 

13 

02950 

INC 

DE 

4A24 

1A 

02960 

LD 

A, (DE) 

4A25 

67 

02970 

LD 

H, A 

4A26 

CD54F4 

02980 

CALL 

PRHEX 

4A29 

13 

02990 

INC 

DE 

4A2A 

ED5398F5 

03000 

LD 

(EMDSYS) ,DE 

4A2E 

21785B 

03010 

LD 

HL, BUFFER 

4A31 

ED4B85F5 

03020 

LD 

BC, (FLEN) 

4A35 

09 

03030 

ADD 

HL, BC 

4A36 

A7 

03040 

AND 

A 

4A37 

ED52 

03050 

SBC 

HL, DE 

4A39 

7D 

03060 

LD 

A,L 

4A3A 

B4 

03070 

OR 

H 

4A3B 

28 OE 

03080 

OR 

Z, LI 1 1 

4A3D 

ES 

03090 

PUSH 

HL 



2.5. 


4A3E 
4 A4 i 
4 A4 4 
4A45 
4A46 
4A4B 
4A4E 
4A4F 
4A5Z 
4A55 

4A5B 

4h5B 

4A5E 

4A5F 

4A62 

4A63 

7A66 

4A67 

4A69 

4A69 

4AfaA 

4A6B 

4A6C 

4AfcD 

4A6E 

4A71 

4A 7 2 

4A73 

4A T 5 

4A73 

4A7Q 

4A>A 

4A7B 

4A7C 

4A7B 

4A7E 

4A7F 

4 ABO 

4 ABI 

4A84 

4A85 

4A87 

4A8B 

4A89 

4A8A 

4A8B 

4A8C 

4A8D 

4A8E 

4A90 

4A91 

4A94 

4A97 

4A98 

4A9B 

4A9C 

4A9F 

4AA0 

4AA1 
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2144F5 

A3, 100 

LD 

HL , 1 E* Tlfc 

CB00F4 

0311'* 

ChLl 

PRINT 

El 

03120 

PDF* 

HL 

CBC J J A 

03130 

CALL 

MZUS 

CD54F4 

0’140 

CAL L 

PPHF.X 

CDB94A 

03150 Li 11 

CALL 

CRCP 

HF 

03160 L.110 

\DP 

A 

3293F 5 

03170 

LD 

1 DFLAb i , A 

CDEB51 

03130 WS T ART 

CALL 

WA IT 

C 30048 

03190 

JP 

STAPT 


03200 

■ 


2156F5 

03210 LI 00 

LD 

HL , 7 E * T 1 4 

CD00F4 

03220 

CALL. 

PP INT 

1A 

03230 

LD 

A, < DE' 

CD28F4 

03240 

CALL 

OUTCH 

13 

03250 

INC 

DE 

CPB«4tt 

03260 i 

CAL L 

CPCP 

EB 

032^0 

E* 

DE, HL 


03280 LI 05 

LD 

E, 1 HL' 

-i-r 

03290 

INC 

HL 

5o 

03300 

LD 

D, (HL.) 


03310 

INC 

HL 

2“*; 

03320 

INC 

HL 


03330 

INC 

HL 

7E 

03340 L 1 0 1 

LD 

A, 1 HL i 

CDA6F4 

03350 

CALL 

ENDE! 


03360 

INC 

HL 

A7 

03370 

AND 

A 

20F8 

03380 

JR 

NZ, L.101 

CDA6F4 

0339O LI 02 

CALL 

ENDE 1 

D5 

03400 

PUSH 

DE 

5E 

03410 

LD 

E, ' hL> 

+ t 

03420 

INC 

HL 

56 

03430 

LD 

D, < HL) 

7A 

03440 

LD 

A,D 

B3 

03450 

OF: 

E 

E3 

03460 

Ex 

■SP) ,HL 

EB 

03470 

E> 

DE, HL 

CI 

03*80 

POP 

PC 

CA4E4A 

03490 

«JP 

Z , L 1 1 0 

E5 

03500 

PUSH 

HL 

ED52 

03510 

SBC 

HL, DE 

09 

03520 

ADD 

HL, BC 

Dl 

03530 

POP 

DE 

2B 

03540 

DEC 

HL 

2B 

03550 

DEC 

HL 

7E 

03560 

LD 

A, (HL t 

23 

03570 

INC 

HL 

A7 

03580 

AMD 

A 

28E5 

03590 

JR 

I , L 1 02 

E5 

03600 

PUSH 

HL 

2152F5 

03610 

LD 

HL, TExTi 3 

C DOOF 4 

03620 

CALL 

PRINT 

El 

03630 

POP 

HL 

CDBC4A 

03640 

CALL 

CR1 

7E 

03650 LI 03 

LD 

A, (HL) 

CDA6F4 

03660 

CALL 

ENDEI 


03670 

INC 

HL 

A7 

036 80 

AND 

A 

20F8 

03690 

JR 

NZ, L103 


1 ■»*/ LJtJ 'li Vl 
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4AA3 

18C2 

03700 

JR 

LI 05 



03710 ; 



4AA5 

7E 

03720 NULL 

LD 

A, (HL) 

4AA6 

2B 

03730 

DEC 

HL 

4AA7 

B6 

03740 

OR 

(HL) 

4AA8 

2B 

03750 

DEC 

HL 

4AA9 

B6 

03760 

OR 

(HL) 

4AAA 

23 

03770 

INC 

HL 

4AAB 

CO 

03780 

RET 

NZ 

4AAC 

2B 

03790 

DEC 

HL 

4AAD 

2B 

03800 

DEC 

HL 

4AAE 

7E 

03810 

LD 

A, (HL) 

4AAF 

FE7B 

03820 

CP 

78H 

4AB1 

07 

03830 

INC 

HL 

4AB2 

A -«J 

03840 

INC 

HL 

4AB3 

2802 

03850 

JR 

Z, Ml 

4AB5 

AF 

03860 

XOR 

A 

4AB6 

C9 

03870 

RET 


4AB7 

A7 

03880 NI 

AND 

A 

4AB8 

C9 

03890 

RET 




03900 

• 

ft 


4AB9 

CDBC4A 

03910 CRCR 

CALL 

CR1 

4ABC 

3E0D 

03920 CR1 

LD 

A, CR 

4ABE 

C328F4 

03930 

JP 

OUTCH 



03940 

■ 


4AC1 

F5 

03950 MZUS 

PUSH 

AF 

4AC2 

7C 

03960 

LD 

A, H 

4AC3 

A7 

03970 

AND 

A 

4AC4 

3297F5 

03980 

LD 

(MZ) ,A 

4AC7 

2008 

03990 

JR 

NZ , MZI 

4AC9 

7D 

04000 

LD 

A, L 

4ACA 

FEOA 

04010 

CP 

10 

4ACC 

3803 

04020 

JR 

C.MZl 

4ACE 

3297F5 

04030 

LD 

(MZ) , A 

4AD1 

Fl 

04040 MZi 

POP 

AF 

4AD2 

C9 

04050 

RET 




04060 

* 

* 




04070 

; Automat i k (E 



04080 

* 

4 


4AB3 

3A90F5 

04090 AUTOM 

LD 

A, (BF) 

4AD6 

EEFF 

04100 

XOR 

. 255 .. 

4AB8 

3290F5 

04110 

LD 

(BF) , A 

4ADB 

3AD1F4 

04120 

LD 

A, (BA) 

4ADE 

EE61 

04130 

XOR 

>a’ ; ^ 

4AEO 

32D1F4 

04140 

LD 

(BA),A 

4AE3 

C 300 48 

04150 

JP 

START 



04160 

B 




04170 

; Drucker (Ein 



04180 

« 

9 


4AE6 

3A92F5 

04190 DREA 

LD 

A, (DF) 

4AE9 

EEFF 

04200 

XOR 

255 

4AEB 

3292F5 

04210 

LD 

(DF) ,A 

4AEE 

3AD3F4 

04220 

LD 

A, (DA) 

4AF1 

EE64 

04230 

XOR 

’d* ; 

4AF3 

32D3F4 

04240 

LD 

(DA) , A 

4AF6 

C30048 

04250 

JP 

START 


. " H 


* * * *v , ;v* 


XOR ? A’ 


XOR 9 D' 


4AF9 21FEF4 


04260 

04270 

04280 

04290 SCHREI 


Schrei ben 


LD 


HL, TEXT4 
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4AFC 1 1A752 

04300 

LD 

DE , FCB 

4AFF 0617 

04310 

LD 

B,23 

4B01 CD8351 

04320 

CALL 

INPUT 

4B04 EB 

04330 

EX 

DE, HL 

4B05 21C952 

04340 

LD 

HL,DBUF 

4B08 0600 

04350 

LD 

B, 0 

4 BOA CD20CE 

04360 

CALL 

INIT 

4B0D C28752 

04370 

JP 

NZ , DERROR 

4B10 2109F5 

04380 S001 

LD 

HL, TEXT SB 

4B13 1 1C952 

04390 

LD 

DE , DBUF 

1 4B16 0601 

04400 

LD 

B,1 

4B18 CD8351 

04410 

CALL 

INPUT 

4B1B 7E 

04420 

LD 

A, (HL) 

4B1C E6DF 

04430 

AND 

ODFH 

4B1E FE4E 

04440 

CP 

’ N ' 

4B20 2822 

04450 

JR 

Z , S002 

-• 4B22 FE4A 

04460 , 

i: - -CP 1 - 


4B24 20EA 

04470 

JR 

NZ, S001 

4B26 2115F5 

04480 

LD 

HL, TEXT5A 

4B29 1 1C952 

04490 

LD 

DE, DBUF 

4B2C 0604 

04500 

LD 

B,4 

4B2E CD3351 

04510 

CALL 

INPUT 

4B31 7E 

04520. 

LD 

A, (HL) 

4B32 FEOD 

04530 

CP 

CR 

4B34 110060 

04540 

LD 

DE, 6000H 

4B37 2806 

04550 

JR 

Z , S003 

4B39 110000 

04560 

LD 

DE, 0 

4B3C CDFE34 

04570 

CALL 

34FEH 

4B3F ED539BF5 

04580 5003 

LD 

(VERADR^ , DE 

4B43 AF 

04590 

XÜR 

A 

4B44 329AF5 

04600 S002 

LD 

( VF > , A 

4B47 2123F5 

04610 

LD 

HL, TEXT 7 

4B4A CD00F4 

04620 

CALL 

PRINT 

4B4D 3A97F5 

04630 

LD 

A, (M2) 

.... 4B50 A7 

04640 

... AMD 


4B51 21785B 

04650 

LD 

HL, BUFFER 

4B54 282A 

04660 

JR 

Z,S01 

4B56 2A98F5 

04670 

LD 

HL, (ENDSYS) 

4B59 ES 

04680 

PUSH 

HL 

4B5A 11F15B 

04690 

LD 

DE, BUFFER+79H 

4B5D ÖE32 

04700 

LD 

C, 50 

4B5F 7E 

04710 S02 

LD 

A, (HL) 

4B60 FE78 

04720 

CP 

78H 

4B62 28 1B 

04730 

JR 

Z,S05 

4B64 FE3C 

04740 

CP 

3CH 

4B66 23 

04750 

INC 

HL 

4B67 20F6 

04760 

JR 

NZ , S02 

4B69 46 

04770 

LD 

B, (HL) 

4B6A 23 

04780 

INC 

HL 

4B6B 23 

04790 

INC 

HL 

4B6C 23 

04800 

INC 

HL 

4B6D 1A 

04810 SO 3 

LD 

A, (DE) 

4B6E AE 

04820 

XOR 

(HL) 

4B6F 77 

04830 

LD 

(HL) ,A 

4B7Ö 13 

04840 

INC 

DE 

4B71 23 

04850 

INC 

HL 

4B72 OD 

04860 

DEC 

C 

4B73 2005 

04870 

JR 

NZ , S04 

4B75 OE 32 

04880 

LD 

C, 50 

4B77 11F15B 

04890 

LD 

DE, BUFFER+79H 
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4B7A 

iOFi 

04900 S04 

4B7C 

23 

04910 

4B7D 

18E0 

04920 

4B7F 

Ei 

04930 SOS 

4BB0 

ED4B9BF5 

04940 SOI 

4B84 

ED43B44C 

04950 

4888 

1 iOOOO 

04960 

4B8B 

ED539DF5 

04970 

4B8F 

11CF4C 

04980 

4B92 

7E 

04990 S1 

4B93 

FE3C 

05000 

4B95 

23 

05010 

4B96 

20FA 

05020 

4B98 

3E01 

05030 

4B9A 

CD7E52 

05040 

4B9D 

7E 

05050 

4B9E 

F5 

05060 

4B9F 

C602 

05070 

4BA1 

CD7E52 

05080 

4BA4 

O'T 

05090 

4BA5 

3A9AF5 

05100 

4BA8 

A7 

05110 

4BA9 

28iB 

05120 

4BAB 

4E 

05130 

4BAC 

23 

05140 

4BAD 

46 

05 150 

4BAE 

2B 

05160 

4BAF 

E5 

05170 

4BBÖ 

21E241 

05180 

4BB3 

ED42 

05190 

4BBS 

El 

05200 

4BB6 

20 OE 

05210 

4BB8 

E5 

05220 

4BB9 

23 

05230 

4BBA 

23 

05240 

4BBB 

23 

05250 

4 BBC 

C5 

05260 

4BBD 

4E 

05270 

4BBE 

23 

05280 

4BBF 

46 

05290 

4BC0 

ED439DF5 

05300 

4BC4 

CI 

05310 

4BC5 

El 

05320 

4BC6 

79 

05330 S004 

4BC7 

CD7E52 

05340 

4BCA 

78 

05350 

4BCB 

CD7E52 

05360 

4BCE 

E5 

05370 

4BCF 

D5 

05380 

4BD0 

216F4D 

05390 

4BD3 

A7 

05400 

4BD4 

ED52 

05410 

4BD6 

2812 

05420 

4BD8 

110401 

05430 

4BDB 

A7 

05440 

4BDC 

ED5A 

05450 

4BDE 

280 A 

05460 

4BE0 

A7 

05470 

4BE1 

ED5A 

05480 

4BE3 

2805 

05490 


SOS 

HL 

S02 

HL 

EC, (VE RADE) 

( VERAD2+1 ) ,BC 
DE , 0 
(AE) ,DE 
DE, STAB 
A, (HL) 

3CH 

HL 

NZ.S1 
A,i 
WRB 
A, (HL) 

AF 
A, 2 
WRB 
HL 

A, (VF) 

A 


JR 

Z , S004 

LD 

C, (HL) 

INC 

HL 

LD 

B, (HL) 

DEC 

HL 

PUSH 

HL 

LD 

IC 

CM 

UJ 

T-l 

T 

a*. 

SBC 

HL, BC 

POP 

HL 

JR 

NZ, S004 

PUSH 

HL 

INC 

HL 

INC 

HL 

INC 

HL 

PUSH 

BC 

LD 

C, (HL) 

INC 

HL. 

LD 

B, (HL) 

LD 

(AE) , BC 

POP 

BC 

POP 

HL 

LD 

A, C 

CALL 

WRB 

LD 

A, B 

CALL 

WRB 

PUSH 

HL 

PUSH 

DE 

LD 

HL, BL0CK1 

AND 

A 

SBC 

HL, DE 

JR 

Z,SU1 

LD 

DE, 260 

AND 

A 

ADC 

HL, DE 

JR 

Z,S111 

AND 

A 

ADC 

HL, DE 

JR 

Z,S1U 


DJNZ 

INC 

JR 

POP 

LD 

LD 

LD 

LD 

LD 

LD 

CP 

INC 

JR 

LD 

CALL 

LD 

PUSH 

ADD 

CALL 

INC 

LD 

AND 
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4 BES A7 

05500 

AMD 

A 

4BE6 ED5A 

05510 

ADC 

HL, DE 

4 BES 2006 

05520 

JR 

NZ,S11 

4BEA Dl 

05530 Sill 

POP 

DE 

4 BEB 13 

05540 

INC 

DE 

4BEC 13 

05550 

INC 

DE 

4 BEI) 13 

05560 

INC 

DE 

4BEE 13 

05570 

INC 

DE 

4 BEF* D5 

05580 

PUSH 

DE 

4BF0 Dl 

05590 311 

POP 

DE 

4BF1 El 

05600 

POP 

HL 

4 BF 2 7E 

05610 

LD 

A, (HL) 

4BF3 12 

05620 

LD 

(DE) , A 

4BF4 23 

05630 

INC 

HL 

4 BFS 13 

05640 

INC 

DE 

4BF6 7E 

05650 

LD 

A, (HL) 

4BF7 12 

05660 - ■'■■■■’ ■ 

LD - 

■ -■ (DE) , A 

4BF8 23 

05670 

INC 

HL 

4BF9 13 

05660 

INC 

DE 

4BFA Fl 

05690 

POP 

AF 

4BFB 12 

05700 

LD 

(DE i , A 

4BFC F5 

05710 

PUSH 

AF 

4BFD FE01 

05720 

CP 

1 

4BFF 3E00 

05730 

LD 

A,ü 

4C01 3F 

05740 

ADC 

A, A 

4C02 13 

05750 

INC 

DE 

4C03 12 

05760 

LD 

(DF) , A 

4C04 13 

05770 

INC 

DE 

4C05 Fl 

05780 

FÜR 

AF 

4C06 D5 

05790 

PUSH 

DE 

4C07 57 

05800 

LD 

D, A 

4C0B 7E 

05810 S2 

LD 

A, (HL) 

4 CO 9 CD7E52 

05S20 

CALL 

WRB 

4C0C 23 

05830 

INC 

HL 

4C0D 03 

05840.«.., • 

INC 

BC • . . ■ - 

4CÖE 15 

05850 

DEC 

D 

4C0F 20F7 

05860 

JR 

NZ, 52 

4CU 23 

05870 

INC 

HL 

4C12 Dl 

05880 

POP 

DE 

4C13 7E 

05890 

LD 

A, (HL) 

4C14 FE7B 

05900 

CP 

78H 

4C16 C2924B 

05910 

JP 

NZ,S1 

4C19 AF 

05920 

XOR 

A 

4C1A 13 

05930 

INC 

DE 

4C1B 13 

05940 

INC 

DE 

4C1C 12 

05950 

LD 

(DE) , A 

4C1D 13 

05960 

INC 

DE 

4C1E 12 

05970 

LD 

(DE) , A 

4C1F 23 

05980 

INC 

HL 

4C20 7E 

05990 

LD 

A, (HL) 

4C21 32CD4C 

06000 

LD 

(ENTRY+1) , A 

4C24 23 

06010 

INC 

HL 

4C25 7E 

06020 

LD 

A, (HL) 

4C26 32CE4C 

06030 

LD 

(ENTRY+2) , A 

4C29 ED437B4C 

06040 

LD 

(FBLOCK) ,BC 

4C2D ED43S151 

06050 

LD 

(FENTRY) , BC 

4C31 21F200 

06060 

LD 

HL, FBL. 1--FBL0CK-4 

4C34 09 

06070 

ADD 

HL, BC 

4C35 22714D 

06080 

LD 

(FBL1) , HL 

4C38 24 

06090 

INC 

H 


t 




'.#* ** ^ t n* v 




V + » C ■•'■ ..H i * ‘ ' r' 
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4C39 

22754E 

06100 

LD 

4C3C 

24 

06110 

INC 

4C3D 

22794F 

06120 

LD 

4C40 

24 

06130 

INC 

4C41 

227D50 

06140 

LD 



06150 

• 

Ji 

4C44 

21794C 

06160 

LD 

4C47 

Ö10A05 

06170 

LD 

4C4A 

3A9AF5 

06180 

LD 

4C4D 

A7 

06190 

AND 

4C4E 

2813 

06200 

3R 

4C50 

2A9DF5 

06210 

LD 

4C53 

7C 

06220 

LD 

4C54 

B5 

06230 

OR 

4C55 

2003 

06240 

JR 

4C57 

2ACD4C 

06250 

LD 

4C5A 

2281 51 

06260 S31 

LD 

4C5D 

217F51 

06270 

LD 

4C60 

010400 

06280 

LD 

4C63 

7E 

06290 S3 

LD 

*C64 

CD7E52 

06300 

CALL 

4C67 


06310 

INC 

4C68 

OB ‘ ’ ' 

06320 ''' 

DEC 

4C69 

78 

06330 

LD 

4C6A 

Bi 

06340 

OR 

4C6B 

20F6 

06350 

JR 

4C6D 

11A752 

06360 

LD 

4C7Ö 

CD28CE 

06370 

CALL 

4C73 

C28752 

06380 

JP 

4C76 

C3524A 

06390 
06400 ; 

JP 

4C79 

01 

06410 VERSCH 

DEFB 

4C7A 

F4 

06420 

DEFB 

4C7B 

oooo 

06430 FBLOCK 

DEFW 

4C7D 

F3 

06440 

DI 

4C7E 

21FBC9 

06450 

LD 

4C81 

221240 

06460 

LD 

4C84 

213E00 

06470 

LD 

4C87 

223340 

06480 

LD 

4C8A 

3EC9 

06490 

LD 

4C8C 

323540 

06500 ■ 

LD 

4C8F 

32E241 

06510 

LD 

4C92 

06 IC 

06520 

LD 

4C94 

215241 

06530 

LD 

4C97 

36C3 

06540 INI TI 

LD 

4C99 

23 

06550 

INC 

4C9A 

363B 

06560 

LD 

4C9C 

23 

06570 

INC 

4C9D 

3601 

06580 

LD 

4C9F 


06590 

INC 

4CA0 

10F5 

06600 

DJNZ 

4CA2 

0615 

06610 

LD 

4CA4 

36C9 

06620 INIT2 

LD 

4CA6 

23 

06630 

INC 

4CA7 


06640 

INC 

4CA8 

07 

■wJ 

06650 

INC 

4CA9 

10F9 

06660 

DJNZ 

4CAB 

CD0B00 

06670 

CALL 

4CAE 

112100 

06680 HIER 

LD 

4CB1 

19 

06690 

ADD 


(FBL2) , HL 
H 

(FBL3) , Hl. 

H 

(FBL4) , HL 
HL, VERSCH 

BC, FENTRY-VERSCH+2 
A, (VF) 

A 

Z, S3 
HL, (AE) 

A,H 

L 

NZ , 531 

HL, (ENTRY+1) 

(FENTRY) ,HL 
HL , FENTRY-2 
BC, 4 
A, (HL) 

WRB 

HL 

gC ■ -v , ■ ■ . 

A,B 

C 

NZ , S3 
BE, FCB 
CLOSE 
NZ, DERRÖR 
W5TART 

1 

FBLi-VERSCH-4 

0 

HL , 0C9FBH 
(4012H) , HL 
HL, 3EH 
(4033H) , HL 

A, 0C9H 

■ ( 4uo.5H ) , A ' "'i' 1 *'* * ■ ■ “ * »> ■* j- i kn ■ 

(41E2H) , A 

B, ICH 
HL, 4152H 
(HL) ,0C3H 
HL 

(HL) ,3BH 
HL 

(HL) , 1 
HL 

INIT1 

B, 15H 

(HL) ,0C9H 

HL 

HL 

HL 

INIT2 

OBH 

DE, BTAB-HIER 
HL, DE 
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4CB2 E5 

06700 

PUSH 

HL 


4CB3 210000 

06710 VERAD2 

LD 

HL « 0 


4CB6 E3 

06720 VL 

EX 

(SP) ,HL 

h 

4CB7 5E ' 

06730 

LD 

E, (HL) 


4CB8 23 

06740 

INC 

HL 


4CB? 56 

06750 

LD 

D, (HL) 


4CBA 23 

06760 

INC 

HL ; 


4CBB 4E 

06770 

LD 

C, (HU 


4CBC 23 

06780 

INC 

HL 


4CBD 46 

06790 

LD 

B, (HL) 


4CBE 23 

06800 

INC 

HL 


4CBF 79 

06810 

LD 

A,C 


4CC0 BO 

06820 

OR 

B 


4CC1 2805 

06830 

JR 

Z , VS2 


4CC3 E3 

06840 

EX 

(SP), HL 


4CC4 EDBO 

06850 

LDIR 




4CC6 

1SEE 

06860 


JR 

VL- - - 

‘ ft "iV* i «O . < * ’V, VCS* - -f r H * v < 

4CC8 

El 

06870 

VS2 

POP 

HL 


4CC9 

CDE241 

06880 


CALL 

41E2H 


4CCC 

C 30000 

06890 

ENTRY 

3P 

f\ 


4CCF 


06900 

BTAB 

EOU 

$ 


4D6F 


06910 


ORG 

$+160 


4D6F 

01 

06920 

BLOCK 1 

DEFB 

1 


4D70 

02 

06930 


DEFB 



4D71 

0000 

06940 

FBL1 

DEFW 

0 


4D73 


06950 

BTAB1 

EQU 

$ 


4E73 


06960 


ORG 

$+256 


4E73 

01 

06970 

BL0CK2 

DEFB 

1 


4E74 

02 

06980 


DEFB 



4E75 

0000 

06990 

FBL2 

DEFW 

0 


4E77 


07000 

BTAB2 

EQU 

$ 


4F77 


07010 


ORG 

$+256 


4F77 

01 

07020 

BL0CK3 

DEFB 

1 


4F78 

02 

07030 


DEFB 

*1* 


.... , • - 4F79 

0000 

07040 

FBL3 

DEFW 

0 

^ , ' " - ?L \ J*" V ' 1 ^ ‘ W * -V r * H " ,TK 

4F7B 


07050 

BTAB3 

EQU 

$ 


507B 


07060 


ORG 

$+256 


507B 

01 

07070 

BL0CK4 

DEFB 

1 


50 7 C 

02 

07080 


DEFB 



507D 

0000 

07090 

FBL4 

DEFW 

0 


507F 


07100 

BTAB4 

EQU 

$ 


517F 


07110 


ORG 

$+256 


517F 

02 

07120 


DEFB 

2 


5180 

02 

07130 


DEFB 



5181 

0000 

07140 

FENTRY 

DEFW 

0 




07150 


t 

9 



5183 

CD0ÖF4 

07160 

INPUT 

CALL 

PRINT 


5186 

2169F5 

07170 


LD 

HL, TEXT16 


5189 

C DOOF 4 

07 1 80 


CALL 

PRINT 


518C 

EB 

07190 


EX 

DE, HL 


518D 

CDD905 

07200 


CALL 

05D9H 


5190 

C3BC4A 

07210 


JP 

CR1 




07220 


* 

* 





07230 


; Vergl ei chen 




07240 


* 



5193 

21E8F4 

07250 

VERGLE 

LD 

HL, TEXT2 


5196 

C DOOF 4 

07260 


CALL 

PRINT 


5199 

CDEB51 

07270 


CALL 

WA IT 


519C 

2128F5 

07280 


LD 

HL, TEXT8 


519F 

CD00F4 

07290 


CALL 

PRINT 
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51A2 

260F 

07300 

LD 

H, READV -READY --2 

51 A4 

2E18 

07310 

LD 

L, 18H 

51A6 

22CS51 

07320 

L.D 

(READY) , HL 

51A9 

ED5B85F5 

07330 

LD 

DE, (FLEN) 

51 AD 

C36248 

07340 

JP 

LAD 



07350 

■ 


51 BO 

215CF5 

07360 VI 

LD 

HL, TEXT 15 

51B3 

FD222040 

07370 V4 

LD 

(4020H) , IY 

51 B7 

E5 

07380 

PUSH 

HL 

51 B8 

CDB94A 

07390 

CALL 

CRCR 

51BB 

El 

07400 

POP 

HL 

51BC 

C DOOF 4 

07410 

CALL 

PRINT 

51BF 

Dl 

07420 V2 

PQP 

DE 

5 ICO 

C3524A 

07430 

JP 

WSTART 



07440 

• 

* 




07450 

; Fehler 



07460 

* 

* 


51C3 

2161F5 

07470 V3 

LD 

HL, TEXT5 

51C6 

18EB 

07480 

JR 

V4 



07490 
07500 ; 

■ 




07510 ; 

Unterprogramme für Lesen 



07520 ; 



51C8 

IC 

07530 READY 

INC 

E 

51C9 

CBFB 

07540 

SET 

7, E 

51CB 

CDF951 

07550 

CALL 

READB 

51 CE 

2804 

07560 

JR 

Z , REND 

5 IDO 

23 

07570 

INC 

HL 

51D1 

77 

07580 

LD 

(HL) , A 

51D2 

12 

07590 

LD 

(DE) , A 

51D3 

DO 

07600 

RET 

NC 

51D4 

CI 

07610 REND 

POP 

BC 

51D5 

23 

07620 

INC 

HL 

51D6 

C3FC48 

07630 
07640 ; 

JP 

L22 

51D9 

1B 

07650 READV 

DEC 

DE 

5 IDA 

7A 

07660 

LD 

A, D 

51DB 

B3 

07670 

OR 

E 

51DC 

28D2 

07680 

JR 

Z,V1 

5 IDE 

CDF951 

07690 

CALL 

READB 

51E1 

23 

07700 

INC 

HL 

51E2 

28DB 

07710 

JR 

Z,V2 

51E4 

38D9 

07720 

JR 

C,V2 

51E6 

BE 

07730 

CP 

(HL) 

51E7 

C8 

07740 

RET 

Z 

51E8 

C3C351 

07750 

JP 

V3 



07760 

• 




07770 

; Unterprogramme 



07780 

? 


SIEB 

212DF5 

07790 WAIT 

LD 

HL, TEXTO 

S1EE 

C DOOF 4 

07800 

CALL 

PRINT 

51F1 

CD2B00 

07810 W1 

CALL 

INCH 

51F4 

FEOD 

07820 

CP 

CR 

51F6 

20F9 

07830 

JR 

NZ,W1 

51F8 

C9 

07840 

RET 




07850 

* 

t 


51F9 

D9 

07860 READB 

EXX 


51FA 

0608 

07870 

LD 

B, 8 

51FC 

1600 

07880 

LD 

D, Ö 

51FE 

CD 1652 

07890 RB1 

CALL 

READB I 
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5201 3606 

07900 

JR 

C, RB2 

5203 10F9 

07910 

DJNZ 

RB1 

5205 04 

07920 

INC 

B 

5206 7A 

07930 RB3 

LD 

A,D 

5207 D9 

07940 

EXX 


5208 C9 

07950 

RET 



07960 

A 


5209 78 

07970 RB2 

LD 

A, B 

520A FE08 

07980 

CP 

8 

520C 28F8 

07990 

JR 

Z, RB3 

520E CE22 

08000 RB4 

SLA 

D 

5210 10FC 

08010 

DJNZ 

F;B4 

5212 37 

08020 

SCF 


5213 04 

03030 

INC 

B 

5214 18F0 

08040 

JR 

RB3 


08050 

■ 

t 


5216 C5 

03060 READBI 

RUSH 

BC 

5217 DBFF 

08070 

IN 

A, (OFFH) 

5219 E601 

08080 

AND 

01 

521 B 5F 

08090 

LD 

E, A 

52 IC 0E00 

08100 

LD 

C,0 

52 IE OB 

08110 RI 

DEC 

C 

52 1F 280B 

08120 

JR 

Z,RBI1 

5221 BBFF 

08130 

IN 

A, (OFFH) 

5223 E60 1 

08140 

AND 

01 

5225 AB 

08150 

XOR 

E 

5226 1F 

03160 

RRA 


5227 30F5 

08170 

JR 

NC, RI 

5229 C30802 

08180 

JP 

G2Ü8H 

522C 3A90F5 

08190 RBIi 

LD 

A, (BF) 

522F A7 

08200 

AND 

A 

5230 2807 

03210 

JR 

Z, RBI2 

5232 3A40F8 

08220 

LD 

A, (0FS40H) 

5235 CB57 

08230 

BIT 

2, A 

5237 28E5 

08240 

JR 

7, RI r_ : . 

5239 CI 

08250 RBI2 

POP 

BC 

523A 37 

08260 

SCF 


523B C9 

08270 

RET 



08280 

* 


523C 3A90F5 

08290 READS 

LD 

A, (BF) 

523F 329 1F5 

08300 

LD 

(BFS) , A 

5242 3E01 

08310 

LD 

A,1 

5244 3290F5 

08320 

LD 

(BF) , A 

5247 E5 

08330 

PUSH 

HL 

5248 D5 

08340 

PUSH 

DE 

5249 C5 

08350 

PUSH 

BC 

524A 3E05 

08360 

LD 

A, 5 

524C 3226F0 

08370 

LD 

(0F026H) , A 

524F 3227F0 

08380 

LD 

(0F027H) , A 

5252 01AA80 

08390 RSl 

LD 

BC, 08ÖAAH 

5255 CD 1652 

08400 RS2 

CALL 

READBI 

5258 38 1A 

08410 

JR 

C, RS3 

525A B9 

08420 

CP 

C 

525B 20F5 

08430 

JR 

NZ, RSl 

525D 3EFF 

08440 

LD 

A, 255 

525F A9 

08450 

XOR 

C 

5260 4F 

08460 

LD 

C.A 

5261 10F2 

08470 

DJNZ 

RS2 

5263 CD 1652 

08480 RS4 

CALL 

READBI 

5266 380 C 

08490 

JR 

C, RS3 


■ * ä?;v**V * j < f 
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5268 

FE66 

08500 

CP 

66H 

526A 

20F7 

08510 

JR 

NZ , PS4 

526C 

3E2A 

08520 

LD 

A, 

526E 

322644 

08530 

LD 

(4426H) , A 

5271 

322744 

08540 

LD 

(4427H) ,A 

5274 

CI 

08550 RS3 

PÜP 

BC 

5275 

Dl 

08560 

PÜP 

DE 

5276 

El 

08570 

POP 

HL 

5277 

3A91F5 

08580 

LD 

A, (BFS) 

527A 

3290F5 

08590 

LD 

(BF) , A 

527D 

C9 

08600 

RET 




08610 

; 


CE20 


08620 INI! 

EOU 

0CE20H 

CE28 


08630 CLOSE 
08640 ; 

EQU 

0CE2BH 

527E 

D5 

08650 WRB 

PUSH 

DE 

527F 

11A752 

08660 

LD 

DE, FCB 

5282 

CD1B00 

08670 

CALL 

1BH 

5285 

Dl 

08680 

POP 

DE 

5286 

CS 

08690 

RET 

Z 



08700 

* 

J 


5287 

0600 

08710 DERROR 

LD 

B, 0 

5289 

04 

08720 DE1 

INC 

ß .> . . 

528A 

D60A 

08730 

SUB 

10 

528C 

30FB 

08740 

JR 

NC, DE1 

528E 

05 

08750 

DEC 

B 

528F 

C60A 

08760 

ADD 

A, 10 

5291 

F5 

08770 

PUSH 

AF 

5292 

78 

08780 

LD 

A, B 

5293 

C630 

08790 

ADD 

A, ’O’ 

5295 

CD28F4 

08800 

CALL 

OUTCH 

5298 

Fl 

08810 

POP 

AF 

5299 

C630 

08820 

ADD 

A, ? 0* 

529B 

CD28F4 

08830 

CALL 

OUTCH 

529E 

216DF5 

08840 

LD 

HL, TEXT17 

52A1 

CDÖ0F4 

08850 

CALL 

PRINT 

52A4 

C3524A 

08860 

JP 

WS T ART 



08870 
08880 ; 

; 


52A7 


08890 FCB 

EQU 

$ 




08900 ; 



52C9 


08910 DBUF 
08920 ; 

EQU 

$+34 

5B78 


08930 BUFFER 
08940 ; 

EQU 

5B7SH 

F400 


08950 

ORG 

0F400H 



08960 

• 

% 


F400 

7E 

08970 PRINT 

LD 

A, (HL) 

F401 

A7 

08980 

AND 

A 

F402 

23 

08990 

INC 

HL 

F403 

2809 

09000 

JR 

Z , PR2 

F405 

FEFF 

09010 

CP 

255 

F407 

2812 

09020 

JR 

Z , PR3 

F409 

CD28F4 

09030 

CALL 

OUTCH 

F40C 

18F2 

09040 

JR 

PRINT 



09050 

* 


F40E 

D5 

09060 PR2 

PUSH 

DE 

F40F 

CD 26 00 

09070 

CALL 

INCH 

F412 

FE 60 

09080 

CP 

6 OH 

F4L4 

CC2B00 

09090 PR1 

CALL 

Z, INCH 
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F417 

28FB 

09100 

JR 

Z , F'R 1 

F419 

Dl 

09110 

POP 

DE 

F41A 

C9 

09 1 20 

RET 




09130 

■ 

H 


F41B 

C5 

09140 PR3 

PUSH 

BC 

F41C 

46 

09150 

LD 

B, (HL) 

F41D 


09160 

INC 

HL 

F41E 

7E 

09170 PR4 

LD 

A, (HL) 

F41F 

CD28F4 

09 ISO 

CALL 

OUTCH 

F422 

10FA 

09190 

DJNZ 

PR4 

F424 


09200 

INC 

HL 

F425 

Cl 

09210 

POP 

BC 

F426 

18DS 

09220 

JR 

PRINT 



09230 

; 


002B 


09240 INCH 

EQU 

002BH 



09250 

jt 


F428 

D5 

09260 OUTCH 

PUSH 

DE .. 

F429 

F5 

' 09270 

PUSH 

AF 

F42A 

CD 3 300 

09280 

CALL 

33H 

F42D 

Fl 

09290 

POP 

AF 

F42E 

57 

09300 

LD 

D, A 

F42F 

3A93F5 

09310 

LD 

A, ( DFLAG ) 

F432 

A7 

09320 

AND 

A 

F433 

7A 

09330 

LD 

A,D 

F434 

C43B00 

Ö9340 

CALL 

NZ , 3BH 

F437 

Dl 

09350 

POP 

DE 

F438 

C9 

09360 

RET 




09370 

• 

f 




09330 

* 


F439 

7C 

09390 PRH 

LD 

A,H 

F43A 

CD3EF4 

09400 

CALL 

PRBYTE 

F43D 

7D 

09410 

LD 

A; L 

F43E 

F5 

09420 PRBYTE 

PUSH 

AF 

F43F 

0F 

09430 

RRCA 


F440 

0F 

09440 

RRCA 


F441 

OF 

‘ 09450 * 

RRCA 

V 1 ^ J L 

F442 

OF 

09460 

RRCA 


F443 

CD47F4 

09470 

CALL 

PRNIB 

F446 

Fl 

09480 

POP 

AF 

F447 

E60F 

09490 PRNIB 

AND 

OFH 

F449 

FEOA 

09500 

CP 

10 

F44B 

3802 

09510 

JR 

C , PN 1 

F44D 

C607 

09520 

ADD 

A, * A* 9* -1 

F44F 

C630 

09530 PNI 

ADD 

A,’0’ 

F451 

C328F4 

09540 

JP 

OUTCH 



09550 

* 

$ 


F454 

CD39F4 

09560 PRHEX 

CALL 

PRH 

F457 

3E48 

09570 

LD 

A, * H’ 

F459 

C328F4 

09580 

JP 

OUTCH 



09590 

• 

4 


F45C 

2A89F5 

09600 PRBL 

LD 

HL, (LSTREC) 

F45F 

7D 

09610 

LD 

A,L 

F460 

B4 

09620 

OR 

H 

F461 

C8 

09630 

RET 

Z 

F462 

D5 

09640 

PUSH 

DE 

F463 

213DF5 

09650 

LD 

HL, TEXT11 

F466 

C DOOF 4 

09660 

CALL 

PRINT 

F469 

2A87F5 

09670 

LD 

HL, (LSTRAC) 

F46C 

E5 

09680 

PUSH 

HL 

F46D 

CD54F4 

09690 

CALL 

PRHEX 


i. fl ^ ' r *r- ” T ’*< r 1 * 


fr. * ***** - \ ' * ^ 4 
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F470 

3E2D 

09700 

LD 

A , ’ - 

F472 

CD28F4 

09710 

CALL 

OUTCH 

F475 

2A89F5 

09720 

LD 

HL, fLSTREC) 

F478 

CD54F4 

09730 

CALL 

PRHEX 

F47B 

Dl 

09740 

PDP 

DE 

F47C 

A7 

09750 

AMD 

A 

F47B 

ED52 

09760 

SBC 

HL, DE 

F47F 

Dl 

09770 

POP 

DE 

F480 

7C 

09780 

LD 

A, H 

F481 

A7 

09790 

AND 

A 

F482 

CO 

09800 

RET 

N2 

F483 

7D 

09810 

LD 

A,L 

F484 

FE03 

09820 

CP 


F486 

DO 

09830 

RET 

NC 

F487 

C5 

09840 

PUSH 

BC 

F488 

45 

09850 

LD 

B,L 

F489 

04 

09860 

INC 

B 

F4SA 

2181F5 

09870 

LD 

HL, TEXT20 

F48D 

CD00F4 

09880 

CALL 

PRINT 

F490 

2A8DF5 

09890 

LD 

HL, (L ST ADD 

F493 

7E 

09900 PRBL1 

LD 

A, (HL) 

F494 

CD3EF4 

09910 

CALL 

PRBYTE 

F497 

3E4S 

09920 

U>. 

A, 'HD-,,-. - 

F499 

CD28F4 

09930 

CALL 

OUTCH 

F49C 

3E20 

09940 

LD 

A,’ ? 

F49E 

CD2SF4 

09950 

CALL 

OUTCH 

F4A1 

23 

09960 

INC 

HL 

F4A2 

10EF 

09970 

DJNZ 

PRBL1 

F4A4 

CI 

09980 

POP 

BC 

F4A5 

C9 

09990 

RET 




1 0000 

• 

* 




10010 

m 

t 




10020 

• 

f 


F4A6 

EB 

10030 ENDEI 

EX 

DE, HL 

F4A7 

CDACF4 

10040 

CALL 

ENDE 

F4AA 

EB 

1 0050 

EX 

DE, HL 

F4AB 

C9 

10060 

RET 




10070 

* 

> 


F4AC 

E5 

10080 ENDE 

PUSH 

HL 

F4AD 

D5 

10090 

PUSH 

DE 

F4AE 

21785B 

10100 

J-P 

HL, BUFFER 

F4B1 

ED5B85F5 

10110 

LD 

DE, (FLEN) 

F4B5 

19 

10120 

ADD 

HL, DE 

F4B6 

37 

10130 

SCF 


F4B7 

Dl 

10140 

POP 

DE 

F4B8 

ED52 

10150 

SBC 

HL, DE 

F4BA 

El 

10160 

POP 

HL 

F4BB 

DO 

10170 

RET 

NC 

F4BC 

Dl 

10180 

POP 

DE 

F4BB 

2176F5 

10190 

LD 

HL, TEXT19 

F4C0 

CDÖ0F4 

10200 

CALL 

PRINT 

F4C3 

C34E4A 

10210 

JP 

LI 10 



10220 

* 

$ 




10230 

* 




10240 

$ Texte 




10250 

■ 


F4C6 

IC 

10260 TEX TI 

DEFB 

ICH 

F4C7 

1F 

10270 

DEFB 

1FH 

F4C8 

53 

10280 

DEFM 

’ SAVETAPE * 

F4D1 

41 

10290 BA 

DEFM 

’A ’ 




t 
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F4D3 

20 

10300 DA 

DEFM 


F4D5 

3C 

10310 

BEFM 

’<L, F , S, A, 

F4E7 

00 

10320 

BEFB 

0 

F4E6 

IC 

10330 TEXT2 

DEFB 

ICH 

F4E9 

1F 

10340 

BEFB 

1FH 

F4EA 

57 

10350 

DEFM 

’ Wi ederqabe’ 

F4F4 

OB 

10360 

DEFB 

CF: 

F4F5 

00 

10370 

DEFB 

0 

F4F6 

0D 

10380 TEXT3 

DEFB 

CR 

F4F7 

4C 

10390 

DEFM 

•' Laenge’ 

F4FD 

00 

10400 

DEFB 

0 

F4FE 

IC 

10410 TEXT4 

DEFB 

ICH 

F4FF 

1F 

10420 

DEFB 

1FH 

F500 

46 

10430 

DEFM 

J Fi 1 ename’ 

F508 

00 

10440 

DEFB 

0 

F509 

56 

10450 TEXT5B 

DEFM 

’ Verschieben"' 

F514 

00 

10460 

DEFB 

0 

F515 

4E 

10470 TEXT5A 

DEFM 

J Neue Adr ? 

F51D 

00 

10480 

DEFB 

0 

F51E 

4C 

10490 TEXT6 

DEFM 

'L. . ’ 

F521 

0D 

10500 TEXT6A 

DEFB 

CR 

F522 

00 

10510 

DEFB 

0 

F523 

53 

10520 TEXT7 

DEFM 

7 S. . > 

F526 

0D 

1 0530 

DEFB 

CR 

F527 

00 

10540 

DEFB 

0 

F528 

56 

10550 TEXT8 

DEFM 

7 V. . ’ 

F52B 

OB 

10560 

DEFB 

CR 

F52C 

00 

10570 

DEFB 

0 

F52D 

3C 

10580 TEXTO 

DEFM 

’ ( ENTER >’ 

F534 

0D 

10590 

DEFB 

CR 

F535 

00 

10600 

DEFB 

0 

F536 

OD 

10610 TEXT 10 

DEFB 

CR 

F537 

53 

10620 

DEFM 

J SYS: ’ 

F53C 

00 

10630 

DEFB 

ij 

F53D 

OB 

10640 TEXT 1 1 

DEFB 

CR 

F53E 

42 

10650 

DEFM 

’Blk: ’ 

F543 

00 

10660 

DEFB 

0 

F544 

OD 

10670 TEXT18 

DEFB 

CR 

F545 

7A 

10630 

DEFM 

’zus: ’ 

F54A 

00 

10690 

DEFB 

0 

F54B 

OD 

10700 TEXT12 

DEFB 

CR 

F54C 

45 

10710 

DEFM 

’ Ety: ’ 

F551 

00 

10720 

DEFB 

0 

F552 

3F 

10730 TEXT13 

DEFM 

’ O 1 

F555 

00 

10740 

DEFB 

0 

F556 

42 

10750 TEXT14 

DEFM 

* BAS: ’ 

F55B 

00 

10760 

DEFB 

0 

F55C 

4B 

10770 TEXT15 

DEFM 

’ Kein ’ 

F561 

46 

10780 TEXT5 

DEFM 

J Fehler ? 

F567 

OD 

10790 

DEFB 

CR 

F568 

00 

10800 

DEFB 

0 

F569 

20 

10810 TEXT16 

DEFM 

r <y t 

F56C 

00 

10820 

DEFB 

0 

F56D 

20 

10830 TEXT17 

DEFM 

? Fehler’ 

F574 

OD 

10840 

DEFB 

CR 

F575 

00 

10850 

DEFB 

0 

F576 

OD 

10860 TEXT19 

DEFB 

CR 

F577 

7A 

10870 

DEFM 

’ zu kurz . ’ 

F57F 

OD 

10880 

DEFB 

CR 

F580 

00 

10890 

DEFB 

0 


vv 




- - JE ^ 
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F581 

20 

10900 

TEXT20 

DEFM 

* . 1 

m 

F584 

00 

10910 


DEFB 

0 

F585 

0000 

10920 

FLEN 

BEFW 

0 

F587 

0000 

10*30 

LSTRAC 

DEFW 

0 

F589 

0000 

10940 

LSTREC 

DEFW 

0 

F58B 

0000 

10950 

L5TAD 

DEFW 

0 

F58D 

0000 

10960 

LSTAD1 

DEFW 

o 

F58F 

00 

10970 

CSF 

DEFB 

0 

F590 

00 

10980 

BF 

DEFB 

0 

F591 

00 

10990 

BFS 

DEFB 

0 

F592 

00 

11000 

BF 

DEFB 

0 

F5 q 3 

00 

11010 

DFLAG 

DEFB 

0 

F594 

00 

1 1020 

CF 

DEFB 

0 

F5 q 5 

00 

11030 

FTF 

DEFB 

0 

F596 

00 

11040 

AFF 

DEFB 

0 

F597 

00 

11050 

MZ 

DEFB 

0 

F598 

0000 

11060 

ENDSYS 

DEFW 

0 

F59A 

00 

11070 

VF 

DEFB 

0 

F59B 

0000 

11080 

VERADR 

DEFW 

o 

F59D 

0000 

11090 

AE 

DEFW 

0 



11100 


■ 


4800 


11110 


END 

START 


00000 TOTAL ERRGRS " ' ‘ 

19 q 96 TEXT AREA BYTES LEFT 


i * . * ' 
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L i teraturverze i chn i s : 


CI) Norbert Heicke» Luidger Röckrath: 

Colour-Genie ROH-Listing 

128 S., DIN A4, kartoniert, 1983, 59, — DU 
ISBN 3-925074-83-1 

<2) Luidger Röckrath 

Haschi nensprachebuch für TRS-80/Genie und Colour-Genie 

149 S., DIN A5 , kartoniert, 1984, 49, — DH 
ISBN 3-925074-87-4 

( Inhaltsverzeichnis siehe folgende Seite) *' 

<3) Luidger Röckrath: 

Hicrosof tbasi c verstanden - 

Konzepte, Algorithmen, Datenstrukturen (Arbeitstitel) 
erscheint vor» Frühjahr 1985 im Franzis-Verlag, Hünchen 

(4) Rodnay Zaks : 

Die Programmierung des Z80 
48, — DH 

Sybex, Düsseldorf 

(5) Colour Basic-leicht gemacht 
TCS GmbH, St. Augustin 

150 S., DIN A4, kartoniert, 1983, 10, — DH 

ISBN 3-88965-001-7 

(6) Das technische Handbuch Colour — Genie 

TCS GmbH, St. Augustin ~ ‘ 

86 S., DIN A4, kartoniert, 49, — DH 
ISBN 3-88965-002-3 

(7) Kalle Braun, Jürgen Buchmüller, Frank Seeger : 

Das Colour-Genie Buch 1 

TCS GmbH, St. Augustin 

110 S. , DIN A5, kartoniert, 1983, 39, — DH 
ISBN 3-88965-003-1 

(8) Kalle Braun, Jürgen Buchmüller, Frank Seeger: 

Das Colour-Genie Buch 2 

TCS GmbH, St. Augustin 

118 S., DIN A5, kartoniert, 1983, 39, — DH 
ISBN 3— 88965— 004— X 

(9) Kalle Braun, Jürgen Buchmüller, Frank Seeger: 

Das Colour — Genie Buch 3 

TCS GmbH, St. Augustin 

108 S. , DIN A5, kartoniert, 1984, 39, — DH 
ISBN 3-88965-007-4 


Alle Bücher können bei uns bezogen werden. 
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Inhaltsverzeichnis des Kasch i nensprachebuches 


Teil 1: ROK-Routinen S 

1.1 E i n-/Ausgaberout i nen 6 

1.2 Verwaltung des Programmtextes 16 

1.3 Verwaltung der Variablentabelle 21 

1 .4 Arithmetik 26 

1 .5 Str i ngverarbe i tung 34 

1.6 Ausdrucksausuertung 36 

1.7 Kassettenroutinen 38 

1.8 Restart* s 45 

Teil 2: RAH-Adressen 48 

Teil 3 : Vergleich der verschiedenen ROK- Vers i onen 50 

Tei 1 4 : Beschreibungen der Programme 55 

4.1 Bi ldschirmeditor SEDIT ’* 56 

4.2 Basicerwe i terung NEUBAS 62 

4.3 Double Precision Funktionen DOUBLE 72 

4.4 Bas i cprogrammpacker PACK 75 

4.5 Feldaufzeichnung ARRAY 77 

4.6 Uml auterwei terung für SCRIPSIT 80 

4.7 Assembler/Disassembler 288AD 83 

Teil 5: Listings der Beispielprogramme 87 

5.1 Beispiel 1: Durchschnitt eines Feldes 87 

5.2 Beispiel 2: Ausgabe einer Codetabelle 89 

5.3 Beispiel 3: POP-Anweisung 90 

5 . 4 Be i spiel 4 : 2ah lene i n— /ausgabe 9 1 

5.5 Beispiel 5: Systemfileaufzeichnung 92 

+ 

Teil 6: Listings der Programme aus Teil 4 95 

6.1 Bidlschirmeditor SEDIT 95 

6.2 Bas icerwe i terung NEUBAS 101 

6.3 Double Precision Funktionen DOUBLE 114 

6.4 Basicprogrammpacker PACK 124 

6.5 Feldaufzeichnung ARRAY 127 

6.6 Umlauterweiterung für SCRIPSIT 131 

6.7 Assembler/Disassembler 280AD 133 

6.8 Konvertierungsprogramme /SRC <-> /KAC 148 


Bitte beachten Sie» daß die Teile 1» 2, 3 und 5 ohne 
Einschränkung für das Colour-Genie geeignet sind. Von den 
Programmen aus Teil 4 ist nur DOUBLE unverändert auf dem 
Colour-Gen ie lauffähig. Der Assembl er /D i sassemb 1er bedarf 
einer Anpassung, die anderen Programme sind in einer 
speziellen Co lour-Gen i e-Versi on im vorliegenden Buch 
Assemb 1 ertr i cks entha 1 ten . 



• Entwicklung - Vertrieb - Beratung 

• Hardware - Software 

• EDV - Dokumentationsverlag 


KULIVRAI n 

MIKROCOMPUTER 


Ludger Röckrath * Noppiusstraße 19 - 5100 Aachen 

Neuerscheinung : 
L. Röckrath: 

Das Maschinensprachebuch 


für TRS-80/Genie/Colour-Genie 
( 149 S . , DIN-A5 , kartoniert , 

49 DM, ISBN 3-925074-07-4) 

Das Maschinensprachebuch ist 
unentbehrlich für jeden, der 
auf einem TRS-80/ Genie oder 
Co 1 our-Genie Maschinenpro- 
gramme entwickelt . Es zeigt 
einfach und verständlich auf, 
wie eigene Maschinenprogramme 
durch Verwendung von 

ROM-Routinen effizient ge- 
schrieben werden können. 
Außerdem werden die Unter- 
schiede zwischen den ver- 
schiedenen Systeme erläutert . 
Zum Schluß folgen ausführlich 
dokumentierte Beispielpro- 
gramme und hilfreiche 

Utilities im Quellprogramm. 


— 

Maschinen 

spräche 

buch 
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Das Maschinenprogramm bietet unter anderem: ‘ '**"’* ' '** 

- ausführliche Beschreibung von ca. 70 ROM-Routinen: 

- Einsprungadresse, Name, evtl. Unterschiede zwischen den Systemen 

- Registerbeeinflussung 

- Aufruf- und Ergebnisparameter 

- genaue und ausführliche Funktionsbeschreibung 

- 1 Beispiel für die Anwendung 

- genaue Beschreibung des Aufbaus des Basicprogrammtextes , 
der Variablentabelle, ... 

- Auflistung aller wichtigen RAM-Zellen, in denen Parameter 
für die ROM-Routinen übergeben werden müssen 

- Vergleich der ROM’s von TRS-80 Model I (alte/neue Version), TRS-80 
Model III , Genie I+II , Genie III , Genie IIIs, Colour-Genie 

- 5 ausführlich dokumentierte Sourcelistings von Beispielprogrammen: 
Durchschnitt eines Feldes, Codetabelle, POP-Anweisung, 
Zahlen-Ein-/Ausgabe und System-File-Aufzeichnung auf Kassette. 

- Sourcelistings und Beschreibungen zahlreicher Utilities, die Pro- 
grammiertechniken aufzeigen und sinnvoll eingesetzt werden können: 
komfortabler Bildschirmeditor SEDIT / Basicerweiterung NEWBAS / 
Erweiterung aller Funktionen auf doppelte Genauigkeit DOUBLE / 
Basicprogrammpacker PACK / Feldaufzeichnung ARRAY / 

Umlaut- und Druckersteuerungserweiterung für SCRIPSIT / 
Assembler/Disassembler/Edi tor/Moni tor Z80AD 

(nicht alle Programme auf TRS-80-Model-III/Colour-Genie lauffähig.) 

- Erläuterung aller Methoden des Betriebssystemeingriffes 
mit Beispielen: Eingriff über RST-Vektoren, Disk-Basic- 
Vektoren, Treibervektoren im DCB, Befehlserweiterung 
durch Eingriff in die Interpretationsschleife. 




Luidger Röckrath : 


Assemblertricks auf dem Colour-Genie 


Dieses Buch zeigt alle Tricks auf, mit 
denen auf dem Coloui — Genie effektiv in 
Assembler programm iert werden kann* 

Damit wird der Zugriff vom Assemblerpro- 
gramm auf freiprogrammierbare Zeichen, 
hochauflösende Grafik, PSG , CRTC und Dis- 
kette spielend einfach. Durch eine genaue 
Beschreibung von vielen ROH-Routinen kön- 
nen schnell Maschinenprogramme hoher 
Leistungsfähigkeit geschrieben werden . 
Zahlreiche Beispiele (darunter eine Er- 
weiterung des Bildformates auf 30 Zeilen a 
50 Zeichen und ein Programm zum Lesen von 
disk-relativ adressierten Sektoren ) ze i gen 
Programmiertechniken und sinnvolle Anwen- 
dung der vorgestellten Routinen im Zusam- 
menhang auf . 

Schl ieB 1 ich folgen die Beschreibungen und 
3uel lprogramme zahlreicher prof essionel 1er 
Utilities, vom Bildschirmeditor SEDIT bis 
zu den be iden universellen Kop i er Program- 
men COPBIT und SAVETAPE. 
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Luidgei' Röckrath: 


Assernb 1 ertr i cks auf dem Colour- Genie 


Dieses Buch zeigt alle Tricks auf, mit 
denen auf dem Colour-Cenie effektiv in 
Assembler Programm i ert uerden kann. 

Damit wird der Zugriff vom Assembl erpro- 
gramm auf f re i Programm i er bare Zeichen, 
hochauflösende Grafik, PSG , CRTC und Dis- 
kette spielend einfach. Durch eine genaue 
Beschreibung von vielen RÜM-Routinen kön- 
nen schnell üasch i nen Programme hoher 
Leistungsfähigkeit geschrieben uerden. 
Zahlreiche Beispiele (darunter eine Er- 
weiterung des Bildformates auf 30 Zeilen a 
50 Zeichen und ein Programm zum Lesen von 
disk-relativ adressierten Sektoren) zeigen 
Programmiertechniken und sinnvolle Anwen- 
dung der vorgestellten Routinen im Zusam- 
menhang auf. 

Schließlich folgen die Beschreibungen und 
lue 1 1 programme zahlreicher professioneller 
Utilities, vom Bildschirmeditor SED IT bis 
zu den beiden universellen Kopierprogram- 
men COPBIT und SAUETAPE. 
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